Паскаль

составить программу нахождения трехзначных чисел сумма квадратов, цифр которого делится на 13.

Question

Информатика

Максентий

18 июня, 07:46

Паскаль

составить программу нахождения трехзначных чисел сумма квадратов, цифр которого делится на 13.

+4

Ответы (1)

Знаете ответ?

Евгений · Answer 1

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.

Паскальсоставить программу нахождения трехзначных чисел сумма квадратов, цифр которого делится на 13.

Паскаль

составить программу нахождения трехзначных чисел сумма квадратов, цифр которого делится на 13.