На вход программе подается последовательность целых чисел от 1 до 5, характеризующее оценку ученика, каждое число на отдельной строке. Концом последовательности является любое отрицательное число, либо число большее 5. Напишите программу, которая выводит количество пятерок.

Selbrit Selbrit    3   15.05.2020 12:12    236

Ответы
Dinka1597 Dinka1597  14.10.2020 19:47

program z1;

var a,k: integer;

begin

k:=0;

repeat

write ('a = ');

readln (a);

if a = 5 then k:=k+1;

until (a<0) or (a>5);

write ('Количество пятерок равно ',k)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика