Определить, равен ли квадрат заданного трехзначного натурального числа кубу суммы цифр числа - Pascal ABC

Формулировка задачи:

2. Определить, равен ли квадрат заданного трехзначного натурального числа кубу суммы цифр этого числа.

Код к задаче: «Определить, равен ли квадрат заданного трехзначного натурального числа кубу суммы цифр числа - Pascal ABC»

textual
var n,s:integer;
begin
repeat
write('Введите трехзначное число n=');
readln(n);
until(n>99)and(n<=999);
writeln('Равен ли квадрат данного числа кубу суммы цифр этого числа?');
s:=n div 100+n div 10 mod 10+ n mod 10;//сумма цифр
if n*n=s*s*s then writeln('Да')else writeln('Нет');
end.

6   голосов, оценка 3.500 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы