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

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

10.05.2012, 14:20. Просмотров 989. Ответов 1
Метки нет (Все метки)

1.Найдите все целые числа от 30 до 350, у которых сумма цифр равна 15.
2.Данно натуральное число.Выяснить являетца ли оно простым.Оператор цикла с условием не использовать.
3.Вес каждого из 25 человек записан в массив.Людей, имеющих вес более 100кг, будем условно называть полными (известно,что есть по меньшей мере один такой человек). Определить средний вес полных людей и среднюю массу остальных людей.
4.Дан двухмерный массив целых чисел.Определить являетца ли он симметричным относительно своей главной диагонали.

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

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2012, 14:20
Ответы с готовыми решениями:

Найти все целые числа, сумма цифр которых равна 5.
Найти все целые числа, сумма цифр которых равна 5. Плиз помогите.

Найти все целые числа, сумма которых равна k.
Найти все целые числа, сумма которых равна k.

Введите некоторое число n из диапазона 1<=n<=36 и определите целые четырехзначные числа, сумма цифр которых равна n, и их количество
помогите пожалуйста сделать Задание 3 Введите некоторое число n из...

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

Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна K
помогите с задачей :'( Найти все целые числа из промежутка от 100 до 300, у...

1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,655
Записей в блоге: 1
10.05.2012, 14:37 #2
Лучший ответ Сообщение было отмечено Денчик как решение

Решение

Цитата Сообщение от Денчик Посмотреть сообщение
1.Найдите все целые числа от 30 до 350, у которых сумма цифр равна 15.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program summ;
Var i,s:integer;
Function Sum(n:integer):integer;
Var p:integer;
Begin
    p:=0;
    While n<>0 do Begin
    p:=p+(n mod 10);
    n:=n div 10;
    End;
    Sum:=p;
End;
Begin
    write('Числа у которых сумма цифр равна 0: ');
    For i:=30 to 350 do
    if Sum(i)=15 then write(i,' ');
    readln;
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2012, 14:37

Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр
Помогите решить задачу на Паскале. СРОЧНО!!!! Найти все четырехзначные числа,у...

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

Найти все четырёхзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27.
Помогите решить ещё одну задачку :) Найти все четырёхзначные числа, у которых...


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

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

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