Question

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

Answer 1

На паскале:
Var x,k:integer;
Begin
k:=0;
Repeat
Readln(x);
If (x mod 5 = 0) and (x<>0) then inc(k);
Until x=0;
Writeln(k);
End.