Решите задачу на Pascal abc
Найти среди первых 200 натуральных чисел такие, что сумма квадратов их цифр составляет 24.Вывести числа на экран. P.S(использовать оператор While)
Решите задачу на Pascal abc
Найти среди первых 200 натуральных чисел такие, что сумма квадратов их цифр составляет 24.Вывести числа на экран. P.S(использовать оператор While)
Найти среди первых 200 натуральных чисел такие, что сумма квадратов их цифр составляет 24.Вывести числа на экран. P.S(использовать оператор While)
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 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.