Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Денчик
0 / 0 / 0
Регистрация: 21.03.2012
Сообщений: 10
#1

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

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

1.Найдите все целые числа от 30 до 350, у которых сумма цифр равна 15.
2.Данно натуральное число.Выяснить являетца ли оно простым.Оператор цикла с условием не использовать.
3.Вес каждого из 25 человек записан в массив.Людей, имеющих вес более 100кг, будем условно называть полными (известно,что есть по меньшей мере один такой человек). Определить средний вес полных людей и среднюю массу остальных людей.
4.Дан двухмерный массив целых чисел.Определить являетца ли он симметричным относительно своей главной диагонали.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2012, 14:20
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найдите все целые числа от 30 до 350, у которых сумма цифр равна 15 (Turbo Pascal):

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

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

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

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

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

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

1
CodeR
Фрилансер
3379 / 2781 / 788
Регистрация: 08.02.2012
Сообщений: 6,546
Записей в блоге: 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. - Pascal
Помогите решить ещё одну задачку :) Найти все четырёхзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число...

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

Найти все трехзначные числа, сумма цифр которых равна n - Turbo Pascal
Привет! Люди прошу у Вас помощи, нужно сдавать работы 6 июня а у меня ни одной нет. Паскаль не понимаю, но работы нужны. Пожалуйста...

Найти все трехзначные числа, сумма цифр которых равна N. - Turbo Pascal
ребят помогите: составить программу, которая вводит натуральное число N и выдает все трехзначные числа, сумма цифр которых равна N.


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

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

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