Регистрация
дстмсдрлпоа
06.04.2023 07:54
Информатика
Есть ответ 👍

плс информатика блендер​

136
356
Посмотреть ответы 1

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

flora21345
flora21345
4,4(43 оценок)
Program odinakov; var i, it, il: integer; t: boolean; begin  for i: =1 to 255 do  begin t: =true; it: =i;     il: =i mod 10;     while it < > 0 do    begin      if it mod 10 < > il then        begin          t: =false;         break;       end;       it: =it div 10;     end;     if t then writeln(i);   end; end.

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