Предмет: Информатика,
автор: ПОМ4ГИТЕ
Решите задачу на Pascal abc
Найти среди первых 200 натуральных чисел такие, что сумма квадратов их цифр составляет 24.Вывести числа на экран. P.S(использовать оператор While)
там не for i:=1 to 1000 а for i:=1 to 200 do
только не пойму где тут может быть ошибка
Ответы
Автор ответа:
1
Найти среди первых 200 натуральных чисел такие, что сумма квадратов их цифр составляет 24
Приложения:
Похожие вопросы
Предмет: Алгебра,
автор: VladikGG1
Предмет: Химия,
автор: vladzadroter2281337
Предмет: Литература,
автор: dlyaregistratsii2020
Предмет: Математика,
автор: Tini2014
Предмет: Литература,
автор: Аноним
begin
for i:=1 to 1000 do
begin
j:=i;
summa:=0;
while j>0 do
begin
summa:=summa+(j mod 10)*(j mod 10);
j:=j div 10
end;
if summa =24 then writeln(i,' ',summa)
end;