Программа: Поиск 2-значных чисел сумма кв. цифр которых делится на 13

Задача: Найти все двузначные числа сумма квадратов цифр которых делится на 13

PROGRAM chislo;
	var i,skv,w,q :integer;
BEGIN
	for i:=10 to 99 do
	  begin
		w:=i div 10;
		q:=i mod 10;
		skv:=sqr(w)+sqr(q);
		if skv mod 13=0  
        then WriteLn (w,q);
	  end;
END.

Просмотрело: 2239

Возможно, Вы искали: