Регистрация
Vinokurov03
28.06.2023 18:58
Информатика
Есть ответ 👍

пришлите скриншотам ​

252
305
Посмотреть ответы 1

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

aicha21
aicha21
4,8(40 оценок)
  var    a,i : integer;     b : array [1..3] of integer;     begin  readln (a);         for i : = 1 to 3 do      begin      b[i] : = a mod 10;       a : = a div 10;       end;           if (b[1] = b[2]) or (b[2] = b[3])     or    (b[1] = b[3]) then        writeln ('есть одинаковые цифры')    else      writeln ('нет');     readln ();       end.

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