Решите задачу на Pascal abc Найти среди первых 200 натуральных чисел такие, что сумма квадратов их цифр составляет 24.Вывести числа на экран. P.S(использовать оператор While)
var i,j,summa : integer;beginfor i:=1 to 1000 dobeginj:=i;summa:=0;while j>0 dobeginsumma:=summa+(j mod 10)*(j mod 10);j:=j div 10end;if summa =24 then writeln(i,' ',summa)end;
там не for i:=1 to 1000 а for i:=1 to 200 do
только не пойму где тут может быть ошибка
Найти среди первых 200 натуральных чисел такие, что сумма квадратов их цифр составляет 24