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

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

13.03.2013, 10:00. Показов 1006. Ответов 1
Метки нет (Все метки)

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

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.03.2013, 10:00
Ответы с готовыми решениями:

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

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

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

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

1
Фрилансер
3412 / 2809 / 3000
Регистрация: 08.02.2012
Сообщений: 8,107
Записей в блоге: 1
13.03.2013, 13:09 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var n,m,i,s,t:integer;
Begin
    write('Введите m,n: ');readln(m,n);
    For i:=1 to n-1 do
    Begin
      t:=i;s:=0;
      While t>0 do
      Begin
        s:=s+t mod 10;
        t:=t div 10;
      End;
      if sqr(s)=m then write(i,' ');
    End;
    readln;
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.03.2013, 13:09

Помощь в написании контрольных, курсовых и дипломных работ здесь.

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

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

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

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


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

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

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