Дана

последовательность ненулевых вещественных чисел, за которой следует 0 (0 -

признак конца последовательности). Последовательность является оценками

студентов группы по одной дисциплине. Определить сколько "2" и " 5".

Question

Информатика

Мута

30 апреля, 06:21

Дана

последовательность ненулевых вещественных чисел, за которой следует 0 (0 -

признак конца последовательности). Последовательность является оценками

студентов группы по одной дисциплине. Определить сколько "2" и " 5".

+5

Ответы (1)

Знаете ответ на вопрос?

Севастьян · Answer 1

Var a:real; k2, k5:integer;

begin

k2:=0; k5:=0;

read (a) ;

while a0 do begin

if a=2 then k2:=k2+1

else if a=5 then k5:=k5+1;

read (a) end;

write (k2,' ', k5)

end.