В одну и ту же числовую переменную последовательно вводятся целые числа. Количесвто вводимых чисел заранее известно (0 - конец ввода). Определить количество чисел не кратных 5.

Question

Кирьяна

1 ноября, 21:25

+5

Ответы (1)

Знаете ответ?

Рената · Answer 1

На паскале:

Var x, k:integer;

Begin

k:=0;

Repeat

Readln (x) ;

If (x mod 5 = 0) and (x0) then inc (k) ;

Until x=0;

Writeln (k) ;

End.