С клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0...

0 голосов
103 просмотров

С клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0 найти количество чисел из введенных кратных 5


Информатика (63 баллов) | 103 просмотров
0

Я вам что экстрасенс? Назовите язык программирования!

0

gfcrfkm

0

паскаль

0

Пожалуйста:)

Дан 1 ответ
0 голосов

Var a, b : integer;beginb:=0;readln(a);while a<> 0 dobeginif a mod 5 = 0 then b:=b+1;readln(a);end;writeln('Кол-во чисел кратных 5: ', b);end.

(312 баллов)
0

var a, b : integer;
begin
b:=0;
readln(a);
while a<> 0 do
begin
if a mod 5 = 0 then b:=b+1;
readln(a);
end;
writeln('Кол-во чисел кратных 5: ', b);
end.

0

Спасибо огромное

0

:)

0

Будут ещё - задавайте:)