В одну и ту же числовую переменную последовательно вводятся целые числа. Количесвто вводимых чисел заранее известно ( 0 - конец ввода). Определить количество чисел не кратных 5.
В одну и ту же числовую переменную последовательно вводятся целые числа. Количесвто вводимых чисел заранее известно ( 0 - конец ввода). Определить количество чисел не кратных 5.
Гость
Ответ(ы) на вопрос:
ГостьНа паскале:
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.
Не нашли ответ?
Похожие вопросы