Вывести на экран двузначные числа последняя цифра которых кратна 3 циклом while

Question

Информатика

Сосипатра

17 декабря, 03:41

Вывести на экран двузначные числа последняя цифра которых кратна 3 циклом while

+2

Ответы (1)

Знаете ответ на вопрос?

Агапий · Answer 1

var

c:integer;

begin

c : = 10;

while c < 100 do

begin

if ((c mod 10) mod 3 = 0) and (c mod 10 0) then

write (c, ' ') ;

c : = c + 1;

end;

writeln;

end.