Написать программу, которая по сторонам a, b,c определяет, является ли треугольник равнобедренным
267
494
Ответы на вопрос:
Var a,b,k,s: integer; begin readln(a); b: =a; k: =0; while b> 0 do begin k: =k+1; b: =b div 10; end; b: =a; while b> 0 do begin s: =s+round(power((b mod 10),k)); b: =b div 10; end; if a=s then writeln('число ',a,' является числом армстронга') else writeln('число ',a,' не является числом армстронга'); end. пример: 153 число 153 является числом армстронга
Популярно: Информатика
-
Lqoki1129.05.2021 07:21
-
annachebotarevа25.10.2022 04:20
-
tkaa27.03.2020 15:46
-
rydet28.05.2021 04:32
-
Vitoriofedorov15.04.2023 02:54
-
sodzirovna28.02.2020 00:21
-
veronikasimonova110.09.2020 03:28
-
mazyrin91p08sby04.06.2023 08:52
-
55555555Vgggg08.01.2020 10:44
-
MorficTV29.03.2023 11:57