С клавиатуры вводится последовательность чисел, оканчивающаяся нулём. Определить количество чисел, кратных 5, во введенной последовательности.

Question

Информатика

Йонман

6 октября, 02:18

С клавиатуры вводится последовательность чисел, оканчивающаяся нулём. Определить количество чисел, кратных 5, во введенной последовательности.

+3

Ответы (1)

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

Чимит · Answer 1

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.