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

последовательность

23.06.2011, 17:43. Просмотров 256. Ответов 3
Метки нет (Все метки)

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

Считать последовательность цифр и преобразовать ее в последовательность соответствующих латинских букв
Все что сам смог написать в Паскале Program lit; Var A,N:char; Begin...

Задана последовательность из N чисел. Найти самую длинную последовательность, обладающую данным свойством
Прошу помощи мастеров решить ОДНУ задачкУ: 1) Задана последовательность из N...

Если последовательность чисел а1..а12 упорядоченны по условию а1=<a2=<...=<a12, то оставить последовательность без изменений...
Если последовательность чисел а1..а12 упорядоченны по условию а1=&lt;a2=&lt;...=&lt;a12,...

Сгенерировать последовательность 100 случайных чисел Х. Сформировать новую последовательность, состоящую из элементов yi=yi-1+xi (y1=x1). Для получен
Сгенерировать последовательность 100 случайных чисел Х. Сформировать новую...

Дана последовательность целых чисел, за которой следует ноль. Определите, содержит ли последовательность числа, являющиеся степенями 2
Задача: Дана последовательность целых чисел, за которой следует ноль. ...

3
JIomaka
29 / 29 / 24
Регистрация: 22.12.2010
Сообщений: 54
23.06.2011, 17:55 2
Вот.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program zd;
 
var
  a: array [1 .. 20] of Integer;
  i, p: Integer;
 
begin
  p := 1;
  WriteLn('Vvedite 20 chisel:');
  for i := 1 to 20 do
    Read(a[i]);
  for i := 1 to 10 do
    p := p * a[i];
  WriteLn('P=', p);
  ReadLn;
  ReadLn;
 
end.
0
ruslan19693
0 / 0 / 0
Регистрация: 21.05.2011
Сообщений: 43
23.06.2011, 18:07  [ТС] 3
нет здесь не последовательность,а последовательно вводится здесь через for делать надо

Добавлено через 2 минуты
решил пожалуйста
0
JIomaka
29 / 29 / 24
Регистрация: 22.12.2010
Сообщений: 54
23.06.2011, 18:13 4
Так что ли?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program zd;
 
var
  a: array [1 .. 20] of Integer;
  i, p: Longint;
 
begin
  p := 1;
  WriteLn('Vvedite 20 chisel:');
  for i := 1 to 20 do
    ReadLn(a[i]);
  for i := 1 to 10 do
    p := p * a[i];
  WriteLn('P=', p);
  ReadLn;
 
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.06.2011, 18:13

Дано натуральное число а. записать убывающую последовательность чисел без последней цифры предыдущего ( например а=2345, полученная последовательность
помогите пожалуйста решить задачу двумя способами, через функции и процедуры! ...

Для каждого из чисел,входящих в эту последовательность а1,...аn,выяснить,сколько раз оно входит в эту последовательность
помогите составить программу на паскале. Даны целые числа а1,...аn.Для каждого...

Определить, сколько раз в последовательность А входит слово one, а в последовательность В- слово two
Определить, сколько раз в последовательность А входит слово one, а в...


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

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

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