Решите задачу на Pascal abc
Найти среди первых 200 натуральных чисел такие, что сумма квадратов их цифр составляет 24.Вывести числа на экран. P.S(использовать оператор While)
Решите задачу на Pascal abc
Найти среди первых 200 натуральных чисел такие, что сумма квадратов их цифр составляет 24.Вывести числа на экран. P.S(использовать оператор While)
Найти среди первых 200 натуральных чисел такие, что сумма квадратов их цифр составляет 24.Вывести числа на экран. P.S(использовать оператор While)
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program SumOfSquareDigits;
var
num, n, sum, digit: integer;
begin
num := 1;
while num <= 200 do
while n > 0 dobegin
n := num;
sum := 0;
begin
digit := n mod 10;
sum := sum + digit * digit;
n := n div 10;
end;
if sum = 24 then
writeln(num);
num := num + 1;
end;
end.