Паскаль

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

Question

Информатика

Миронка

30 июня, 20:28

Паскаль

составить программу нахождения трехзначных чисел сумма квадратов, цифр которого делится на 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.