Задание:
Вывести на экран двузначные числа последняя цифра которых кратна 3 циклом while
Решение:
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.
Знаете другой ответ?