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

@olegbesan · Регистрация: 08.06.2012

Author24 — интернет-сервис помощи студентам

@Das Gespenst · 11.06.2012, 15:53

Вот:

Pascal

program z;
var i,a,a1,s:integer;
begin
     writeln('Двухзначные числа, квадрат суммы цифр которых делится 13');
     for i:=10 to 99 do
         begin
              a:=i;
              s:=0;
              while a<>0 do
                    begin
                         a1:=a mod 10;
                         s:=s+a1;
                         a1:=a div 10;
                         a:=a1;
                    end;
              if sqr(s) mod 13=0
                 then
                     writeln(i);
         end;
end.

@olegbesan 2 / 2 / 1 Регистрация: 08.06.2012 Сообщений: 44
		1
	Найти все двузначные числа, сумма квадратов цифр которых делится на 13 11.06.2012, 15:29. Показов 11599. Ответов 1 Метки нет (Все метки) Найти все двузначные числа, сумма квадратов цифр которых делится на 13 0

	11.06.2012, 15:53

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

Решение