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