Èíôîðìàòèêà


         

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


Ñîäåðæàíèå  Íàçàä  Âïåðåä