Предмет: Информатика,
автор: miss5sweetly
Дана
последовательность ненулевых вещественных чисел, за которой следует 0 (0 –
признак конца последовательности). Последовательность является оценками
студентов группы по одной дисциплине. Определить сколько «2» и « 5».
Ответы
Автор ответа:
0
var a:real;k2,k5:integer;
begin
k2:=0; k5:=0;
read(a);
while a<>0 do begin
if a=2 then k2:=k2+1
else if a=5 then k5:=k5+1;
read(a) end;
write(k2,' ',k5)
end.
begin
k2:=0; k5:=0;
read(a);
while a<>0 do begin
if a=2 then k2:=k2+1
else if a=5 then k5:=k5+1;
read(a) end;
write(k2,' ',k5)
end.
Интересные вопросы
Предмет: Математика,
автор: ANDREYHO
Предмет: Математика,
автор: brumkarussia
Предмет: Математика,
автор: stroyimportzh
Предмет: Математика,
автор: sogrina