Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 10, средняя оценка - 4.60
HectoR2
0 / 0 / 0
Регистрация: 21.12.2008
Сообщений: 38
#1

Найдите произведение натуральных чисел из диапазона от 6 до -3 - Pascal

02.03.2009, 16:46. Просмотров 1307. Ответов 6
Метки нет (Все метки)

1. Выведите числа из диапазона от 20 до 3 в столбец. Затем выведите эти числа в порядке возрастания. Найдите сумму чисел кратных 3.
2. Выведите все числа диапазона от –10 до 15, которые делятся на 2, в столбец. Найдите сумму этих чисел.
3. Найдите произведение натуральных чисел из диапазона от 6 до -3. Выведите в строку эти числа, увеличенные в четыре раза.

Добавлено через 4 минуты 18 секунд
Ещё было бы неплохо в Excel её сделать
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.03.2009, 16:46
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найдите произведение натуральных чисел из диапазона от 6 до -3 (Pascal):

Среди натуральных чисел до 100 найдите все пары чисел, для которых их сумма равняется их произведению
Не получается.Среди натуральных чисел 1<n<100 найдите все пары чисел, для...

произведение натуральных чисел
помогите составить две программы. 1) которая будет вычислять произведение...

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

Произведение всех натуральных чисел от 1 до 100
Найти произведение всех натуральных чисел от 1 до 100 Найти произведение...

Дан массив А,состоящий из n натуральных чисел.Найдите наибольший общий делитель элементов массива
1)Дан массив А,состоящий из n натуральных чисел.Найдите наибольший общий...

Найти произведение всех натуральных нечетных чисел от 51 до 77
Найти произведение всех натуральных нечетных чисел от 51 до 77

6
schdub
Эксперт С++
3016 / 1361 / 415
Регистрация: 19.01.2009
Сообщений: 3,614
Завершенные тесты: 1
02.03.2009, 18:42 #2
Цитата Сообщение от HectoR2 Посмотреть сообщение
1. Выведите числа из диапазона от 20 до 3 в столбец. Затем выведите эти числа в порядке возрастания. Найдите сумму чисел кратных 3.
2. Выведите все числа диапазона от –10 до 15, которые делятся на 2, в столбец. Найдите сумму этих чисел.
3. Найдите произведение натуральных чисел из диапазона от 6 до -3. Выведите в строку эти числа, увеличенные в четыре раза.

Добавлено через 4 минуты 18 секунд
Ещё было бы неплохо в Excel её сделать
Это вообще к чему??? Тут раздел о программировании на ПАСКАЛЕ!
0
HectoR2
0 / 0 / 0
Регистрация: 21.12.2008
Сообщений: 38
02.03.2009, 18:44  [ТС] #3
Так их и надо в паскале сделать!!!
0
schdub
Эксперт С++
3016 / 1361 / 415
Регистрация: 19.01.2009
Сообщений: 3,614
Завершенные тесты: 1
02.03.2009, 19:01 #4
Т.е. работа с матрицами (многомерными массивами). Вот эти три задания должны быть решены по отдельности, или все вместе? Есть еще какие-либо исходные данные?
0
HectoR2
0 / 0 / 0
Регистрация: 21.12.2008
Сообщений: 38
02.03.2009, 19:08  [ТС] #5
Тема: Организация циклов в Pascal
Цель работы: Решить 3 алгоритма в среде Pascal
Задание:
1. Написать 3 программы, используя базовые операторы цикла(for-to-do, while-do,repeat-until)
0
schdub
Эксперт С++
3016 / 1361 / 415
Регистрация: 19.01.2009
Сообщений: 3,614
Завершенные тесты: 1
02.03.2009, 19:27 #6
Так бы сразу

Первая
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses CRT;
var i,c : integer;
 
begin
  ClrScr;
  {выводим столбиком}
  for i:=20 downto 3  do
    WriteLn(i:2);
 
  WriteLn;
 
  {в порядке возрастания}
  for i:=3 to 20  do
    Write(i:3);
 
  WriteLn;
  WriteLn;
 
  c:=0;
  {сумма кратных тройке}
  for i:=3 to 20 do
    if i mod 3=0 then
      c:=c+i;
 
  WriteLn('Сумма чисел из [3;20] кратных 3 равна ',c);
 
  ReadLn;
end.
0
HectoR2
0 / 0 / 0
Регистрация: 21.12.2008
Сообщений: 38
04.03.2009, 04:49  [ТС] #7
Up....
0
04.03.2009, 04:49
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.03.2009, 04:49
Привет! Вот еще темы с решениями:

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

Определить произведение суммы нечетных чисел и суммы чисел из диапазона от -30 до -10
Последовательно вводятся действительные отрицательные числа,пока не будет...

Вычислить произведение первых ста натуральных чисел (использовать динамическую память)
Написать программу, вычисляющую произведение первых ста натуральных чисел....

Найти сумму и произведение всех натуральных чисел от 1 до 50, не используя формулы прогрессий.
Найти сумму и произведение всех натуральных чисел от 1 до 50, не используя...


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

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

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