Определить,равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа в паскале
135
401
Ответы на вопрос:
Var numb,sot,des,ed: integer; begin readln(numb); sot: = numb div 100; des: =numb mod 100; des: = des div 10; ed: =numb mod 10; if sqr(numb)=sqr(sot+des+ed)*(sot+des+ed) then writeln('yes') else writeln('no'); end.
Популярно: Информатика
-
lyazkaiman030919.08.2021 10:28
-
Юлькач03.07.2022 00:39
-
ваня2288на729.08.2022 10:39
-
raysat209.04.2020 19:37
-
Radon8616.05.2022 13:41
-
Школьник543246709.08.2020 16:26
-
nelli3717.06.2022 10:27
-
polina68617.01.2021 15:26
-
VeshkinRuslan08.06.2023 11:56
-
zlu4ka1125.06.2023 13:25