Ответы на вопрос:
Var a,b,c,x: integer; begin write('введите трехзначное число. x='); readln(x); a: =x div 100; b: =(x mod 100) div 10; c: =(x mod 10) div 1; if (a=b) and (b=c) then writeln('верно! ') else writeln('не верно'); readln; end.
Популярно: Информатика
-
aise0915.03.2023 07:21
-
Kseniya20404.11.2021 17:41
-
Сасаев05.01.2022 00:08
-
к1о2л3я408.03.2023 06:52
-
ziminasofa270327.10.2020 00:01
-
INKOGNIT00916.07.2020 09:03
-
NikoBellic9924.10.2022 03:00
-
AnnKJ12.03.2020 11:48
-
Антонио78917616.11.2021 06:20
-
KlarissaStet17.05.2023 13:40