Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 25.06.2011
Сообщений: 43
1

Получить все натуральные числа, меньшие n, квадрат суммы цифр которых равен m

16.05.2012, 18:06. Показов 1881. Ответов 1
Метки нет (Все метки)

Даны натуральные числа m и n. Получить все натуральные числа, меньшие n, квадрат суммы цифр которых равен m.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.05.2012, 18:06
Ответы с готовыми решениями:

Получить все натуральные числа, меньшие n, квадрат суммы цифр которых равен m
Даны натуральные числа m и n. Получить все натуральные числа, меньшие n, квадрат суммы цифр которых...

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

Найти все натуральные числа, меньшие n, квадрат суммы цифр которых равен m
Помогите с задачами, пожалуйста! 1). Начав тренировки, спортсмен в первый день пробежал 10 км....

Получить Все натуральные числа меньше n, квадрат суммы цифр которых равен m
Даны натуральные числа n,m. Получить Все натуральные числа меньше n, квадрат суммы цифр которых...

1
For i:=0 to 150 do
223 / 104 / 107
Регистрация: 05.01.2012
Сообщений: 280
16.05.2012, 19:45 2
Лучший ответ Сообщение было отмечено Atex как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
n,m,i,j,s,y,code:integer;
a:string;
begin
readln(m,n);
Writeln('summa kvadratov cifr chisla n =m');
for i:=1 to n do begin
Str(i,a);
for j:=1 to length(a) do begin
Val(a[j],y,code);
s:=s+y*y;
end;
if s=m then writeln(i);
s:=0;
end;
readln;
end.
 
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.05.2012, 19:45

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

Найти натуральные числа, меньшие М, квадрат суммы цифр которых равен Х.
Составьте программу подсчёта всех натуральных чисел, меньших М, квадрат суммы цифр которых равен Х.

Выведите на печать все натуральные числа, меньшие N, сумма квадратов цифр которых кратна 7
Выведите на печать все натуральные числа, меньшие N, сумма квадратов цифр которых кратна 7

Ввести последовательность целых чисел до нуля. Вывести числа, квадрат суммы цифр которых равен самому числу
Ввести последовательность целых чисел до нуля. Вывести числа, квадрат суммы цифр которых равен...

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


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

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

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