asylkhanova05
06.03.2022 16:47

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Giuz
12.06.2020 15:16

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.

 

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота