Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Aleksey1
0 / 0 / 0
Регистрация: 09.10.2011
Сообщений: 26
1

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

09.10.2011, 22:23. Просмотров 1041. Ответов 3
Метки нет (Все метки)

Составить программу на языке TurboPascal для подсчета количества двузначных чисел, сумма квадратов цифр которых делится на 13. Сами эти двузначные числа вывести на экран.
написать с использованием цикла
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2011, 22:23
Ответы с готовыми решениями:

Среди натуральных трехзначных чисел найти те, сумма квадратов цифр которых делится на А, а само число делится на А+1
помогите решить, вот как я пытался решить, но что-то не правильно( var x,i,y,z,k,a:integer;...

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

Среди чисел (введенных пользователем) найдите те, сумма квадратов цифр которых делится на 13
Нужно чтобы пользователь ввел ограничение чисел (например от 1 до 50) и программа среди этих чисел,...

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

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

3
Tiga
3 / 3 / 3
Регистрация: 24.05.2011
Сообщений: 39
10.10.2011, 16:35 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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.
Как то так.
0
Dani
1398 / 642 / 134
Регистрация: 11.08.2011
Сообщений: 2,299
Записей в блоге: 2
Завершенные тесты: 1
10.10.2011, 18:35 3
Добавлено через 2 минуты
Tiga, у вас не сумма квадратов цифр двухзначного, а сумма 2 частей 4-х значного. Я у вас ошибку заметил т.к. предположил, что 13 и 31 сумма квадратов одинаковая, а у вас выводится только 13. И у вас сами двухзначные перебираются, вместо их цифр.

Добавлено через 58 минут
Pascal
1
2
3
4
5
6
7
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 секунд
Вот эта точно рабочая. Скопировал не ту =)
1
BUMPtiOUS_MeN
1 / 1 / 0
Регистрация: 10.10.2011
Сообщений: 8
10.10.2011, 18:53 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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.
должна выйти!!!
0
10.10.2011, 18:53
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.10.2011, 18:53

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Найти все трехзначные числа, сумма квадратов цифр которых делится на 13
Помогите пожалуйста(( токо чтоб не сложно было(( я не понимаю как сделать((

Найти все двухзначные числа, сумма квадратов цифр которых делится на 17
2)Найти все двухзначные числа, сумма квадратов цифр которых делится на 17. Ответ:...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.