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

Узнай цену своей работы

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

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

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

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.

Объяснение кода листинга программы

  1. Создаются две переменные: n и s, оба целочисленного типа.
  2. В цикле repeat-until запрашивается у пользователя ввод трехзначного числа n.
  3. Проверяется, что введенное число находится в диапазоне от 100 до 999.
  4. Вычисляется сумма цифр числа n с помощью оператора деления на 100, деления на 10 и остатка от деления на 10.
  5. Вычисляется квадрат числа n.
  6. Сравниваются полученные значения: если nn равно ss*s, то выводится Да, иначе выводится Нет.

Оцени полезность:

6   голосов , оценка 3.5 из 5
Похожие ответы