Èíôîðìàòèêà
then exit do
do öèêë
read fm$, nm$, mt, in, zk ââîä fm$, nm$, mt, in, zk
if fm$ = «» then exit do åñëè fm$ = «» òî âûõîä
? fm$, nm$, mt, in, zk âûâîä (fm$, nm$, mt, in, zk)
loop êöèêë
input «ïðîõîäíîé áàëë=»,b1 çàïðîñ («ïðîõîäíîé áàëë=»,b1)
restore ocenki ïåðåçàãðóçêà_ oöåíêè
? «îòëè÷íèêè:» âûâîä («îòëè÷íèêè:»)
n = 0 ï = 0
do öèêë
read fm$, nm$, mt, in, zk ââîä fm$, nm$, mt, in, zk
if fm$ = «» then exit do åñëè fm$ = «» òî âûõîä
if mt=5 and in=5 and zk=5 then åñëè mt=5 è in = 5 è zk=5 òî
? fin$, nm$ âûâîä (fm$, nm$)
n = n + 1 n = n + 1
end if êåñëè
loop êöèêë
if n=0 then ? «îòñóòñòâóþò» åñëè ï=0 òî âûâîä(«îòñóòñòâóþò»)
restore ocenki ïåðåçàãðóçêà-îöåíîê
? «íå ìåíüøå ïðîõîäíîãî:» âûâîä («íå ìåíüøå ïðîõîäíîãî:»)
n = 0 ï = 0
do öèêë
read fm$, nm$, mt, in, zk ââîä fm$, nm$, mt, in, zk
if fm$ = «» then exit do åñëè fm$ = «» òî âûõîä
sum = mt + in + zk sum = mt + in + zk
