вводя по очереди оценки по контрольной работе 20 учащихся, определить, сколько из них было неудовлетворительных

sashaWinka sashaWinka    3   22.08.2019 22:10    1

Ответы
Ріo78 Ріo78  05.10.2020 13:27
Паскаль
for i:=1 to 20 do begin 
readln(ozenka); 
if ozenka<=2 then k:=k+1; end; 
writeln(k);
думаю, объяснений не надо...
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика