Даны натуральные числа n и m. Определить, является ли сумма квадратов цифр числа n кратной числу m

@Таатта · Регистрация: 05.12.2013

Помогите очень долго голову ломал, запутался...

@Puporev · 22.06.2014, 07:43

Pascal

var n,n1,m,s:integer;
begin
repeat
writeln('Введите 2 натуральных числа');
readln(n,m);
until(n>0)and(m>0);
n1:=n;
s:=0;
while n>0 do
 begin
  s:=s+sqr(n mod 10);
  n:=n div 10;
 end;
writeln('Сумма квадратов цифр числа ',n1,'=',s);
if s mod m=0 then write('Она кратна числу ',m)
else write('Она не кратна числу ',m);
readln
end.

@Таатта · 22.06.2014, 09:04 **[ТС]**

Спасибо!!!Сейчас думаю как я не додумался до этого

@Таатта 0 / 0 / 0 Регистрация: 05.12.2013 Сообщений: 20
		1
	Даны натуральные числа n и m. Определить, является ли сумма квадратов цифр числа n кратной числу m 22.06.2014, 07:33. Просмотров 1324. Ответов 2 Метки нет (Все метки) Помогите очень долго голову ломал, запутался... 0

@Таатта 0 / 0 / 0 Регистрация: 05.12.2013 Сообщений: 20
	22.06.2014, 09:04 [ТС]	3
	Спасибо!!!Сейчас думаю как я не додумался до этого 0

Опции темы

Даны натуральные числа n и m. Определить, является ли сумма квадратов цифр числа n кратной числу m

Решение