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

Question

Миколай

25 ноября, 22:04

+1

Ответы (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.