Определить, равен ли квадрат заданного трехзначного натурального числа кубу суммы цифр числа - 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.
Объяснение кода листинга программы
- Создаются две переменные: n и s, оба целочисленного типа.
- В цикле repeat-until запрашивается у пользователя ввод трехзначного числа n.
- Проверяется, что введенное число находится в диапазоне от 100 до 999.
- Вычисляется сумма цифр числа n с помощью оператора деления на 100, деления на 10 и остатка от деления на 10.
- Вычисляется квадрат числа n.
- Сравниваются полученные значения: если nn равно ss*s, то выводится
Да
, иначе выводитсяНет
.