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

Question

Информатика

Эладя

25 октября, 01:52

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

+1

Ответы (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.