Регистрация
Марина19r
19.03.2022 10:19
Информатика
Есть ответ 👍

Здрасте, я пишу по причине не учёбы, а компьютера! у меня все видео на компьютере резко стали синими ! как будто для дальтоников! Кто знает как вернуть всё обратно?

228
365
Посмотреть ответы 1

Ответы на вопрос:

dasha2468135
dasha2468135
4,8(95 оценок)
Var       a, b, i, t: integer;       c: boolean; begin       read (a, b);       for i : = a to b do             begin                   t : = i;                   c : = true;                   repeat                         if (t mod 10 = 0) or (i mod (t mod 10) < > 0)                               then c : = false;                         t : = t div 10;                         until t > 0;                   if c = true then write (i, ' ')             end; end.

Популярно: Информатика