Есть ответ 👍

РЕШИТЬ ТЕСТ ПО ИНФОРМАТИКЕ ​

152
390
Посмотреть ответы 1

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

Eveliinaa
4,6(85 оценок)

Var s,a,b,c: integer; begin read(s); a: = s div 100; b: = s div 10 mod 10; c: = s mod 10; if (a=b) and (b=c) then writeln('содержит') else writeln('не содержит'); end. нажимаем "лучший ответ"

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