Напишите программу на Паскале, в которой выдается количество двузначных чисел, не кратных 5

Question

Фросюшка

20 апреля, 14:50

+1

Ответы (1)

Знаете ответ?

Шурена · Answer 1

Begin

writeln (72) ;

end.

Шучу, на самом деле вот так:

var i, c:byte;

begin

for i:=10 to 99 do if i mod 5>0 then c+=1;

writeln (c) ;

end.