Паскаль составить программу нахождения трехзначных чисел сумма квадратов ,цифр которого делится на 13.
Паскаль
составить программу нахождения трехзначных чисел сумма квадратов ,цифр которого делится на 13.
Гость
Ответ(ы) на вопрос:
ГостьProgram n1;
var i,a,temp: integer;
begin
i:=111;
for i:=100 to 999 do
begin
temp:=sqr(i mod 10)+sqr(i div 10 mod 10)+sqr(i div 100);
if temp mod 13=0 then writeln(i);
end;
end.
Не нашли ответ?
Похожие вопросы