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

Question

Гемуля

26 февраля, 09:51

+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.