С клавиатуры вводится последовательность чисел, оканчивающаяся нулём. Определить количество чисел, кратных 5, во введенной последовательности.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
danya.gudkov.98
var i, k, x:integer;
begin
i:=0;
x:=1;
while x0 do
begin
read (x) ;
if (x mod 5=0) and (x0) then k:=k+1;
end;
writeln ('Количество чисел кратных 5 = ', k) ;
end.
begin
i:=0;
x:=1;
while x0 do
begin
read (x) ;
if (x mod 5=0) and (x0) then k:=k+1;
end;
writeln ('Количество чисел кратных 5 = ', k) ;
end.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
