1 / 1 / 0
Регистрация: 04.11.2010
Сообщений: 65
1

Вывести номера тех чисел в наборе, которые больше своего правого соседа

06.11.2010, 17:39. Показов 1668. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Может кто знает как сделать эти задачи если да то напишите плс!
1. Дано целое число N (> 0). Если N — нечетное, то вывести произведение 1•3•...•N; если N — четное, то вывести произведение 2•4•...•N. Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и выводить его как вещественное число.
2. Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые больше своего правого соседа, и количество K таких чисел
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.11.2010, 17:39
Ответы с готовыми решениями:

Вывести номера тех чисел в наборе, которые больше своего правого соседа
Задание. Составить блок-схему алгоритма и написать программу обработки одномерного массива, как...

Вывести номера тех чисел в наборе, которые больше своего правого соседа, и количество K таких чисел
Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые больше...

Вывести номера тех чисел в наборе, которые больше своего правого соседа, и количество K таких чисел
Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые больше...

Вывести номер тех чисел массива, которые больше своего правого соседа и их количество
Дан массив из N элементов. Вывести номер тех чисел которые больше своего правого соседа и их...

1
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
06.11.2010, 18:00 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

-I-
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
29
30
31
32
33
34
35
36
Uses
 CRT;
Var
 c,pr:integer;
 i,n:integer;
begin
ClrScr;
repeat
readln(n);
until n>0;
if n mod 2<>0 then
begin
i:=1;
pr:=1;
while i<=n do
begin
pr:=pr*i;
writeln(i:3);
i:=i+2;
end;
writeln('Pr:=',pr);
end
else
begin
c:=1;
i:=2;
 while i<=n do
  begin
   c:=c*i;
   write(i:3);
   i:=i+2;
  end;
  writeln('c:=',c);
  end;
  readkey
end.
0
06.11.2010, 18:00
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.11.2010, 18:00
Помогаю со студенческими работами здесь

Вывести номера тех чисел в наборе, которые меньше своего левого соседа, и количество K таких чисел
1.Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые меньше...

Вывести номера тех чисел в наборе, которые меньше своего левого соседа, и количество K таких чисел
Дано целое число N и набор из N целых чисел.Вывести номера тех чисел в наборе, которые меньше...

Вывести те элементы в наборе, которые меньше своего правого соседа
2. Дано целое число N(&gt;1) и набор из N целых чисел. Вывести те элементы в наборе, которые меньше...

Найти номер тех элементов массива, которые больше своего правого соседа, и количество таких элементов.
Дан массив размера N. Найти номер тех элементов массива, которые больше своего правого соседа, и...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru