Информатика, опубликовано 2018-08-22 23:50:55 by Гость
В одну и ту же числовую переменную последовательно вводятся целые числа. Количесвто вводимых чисел заранее известно ( 0 - конец ввода). Определить количество чисел не кратных 5.
Ответ оставил Гость
На паскале:
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.