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

@Aleksey1 · Регистрация: 09.10.2011

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

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

@Tiga · 10.10.2011, 16:35

Pascal

program quad;
var
i,k,minD,maxD,divN:integer;
begin
k:=0;
minD:=10;
maxD:=99;
divN:=13;
for i:=minD to maxD do
if((i*i)+(i*i))mod 13=0 then
begin
k:=k+1;
writeln(i);
end;
writeln('Quantity ',k);
end.

Как то так.

@Dani · 10.10.2011, 18:35

Добавлено через 2 минуты
Tiga, у вас не сумма квадратов цифр двухзначного, а сумма 2 частей 4-х значного. Я у вас ошибку заметил т.к. предположил, что 13 и 31 сумма квадратов одинаковая, а у вас выводится только 13. И у вас сами двухзначные перебираются, вместо их цифр.

Добавлено через 58 минут

Pascal

var kol,a,i,j: longint;
begin
for i:= 1 to 9 do
for j:= 0 to 9 do
if ((i*i)+(j*j)) mod 13=0 then begin inc (kol); writeln (i,j); end;
writeln ('Quantity ',kol);
end.

Добавлено через 20 секунд
Вот эта точно рабочая. Скопировал не ту =)

@BUMPtiOUS_MeN · 10.10.2011, 18:53

Pascal

program quad;
var
i,k,minD,maxD,divN:integer;
begin
k:=0;
minD:=10;
maxD:=99;
divN:=13;
for i:=minD to maxD do
if((i*i)+(i*i))mod 13=0 then
begin
k:=k+1;
writeln(i);
end;
writeln('Quantity ',k);
end.

должна выйти!!!

@Aleksey1 0 / 0 / 0 Регистрация: 09.10.2011 Сообщений: 26
		1
	Подсчет количества двузначных чисел, сумма квадратов цифр которых делится на 13 09.10.2011, 22:23. Показов 2175. Ответов 3 Метки нет (Все метки) Составить программу на языке TurboPascal для подсчета количества двузначных чисел, сумма квадратов цифр которых делится на 13. Сами эти двузначные числа вывести на экран. написать с использованием цикла 0

	10.10.2011, 18:53

Опции темы