Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
lemon4eggg
0 / 0 / 0
Регистрация: 12.02.2011
Сообщений: 2
#1

Даны 10 чисел...

15.02.2011, 20:42. Просмотров 803. Ответов 1
Метки нет (Все метки)

Даны 10 чисел, найти s, если s=a1*a2+a2*a3+a3*a4...a9*a10.
Где a1-a10 - это 10 чисел.

Помогите решить!)

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

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

Даны n натуральных чисел. Найти НОД и НОК этих чисел
Даны n натуральных чисел. Найти НОД и НОК этих чисел.

Даны целые числа m, n и последовательность вещественных чисел. Определить произведение m чисел, используя функцию
даны целые числа m и n, и последовательность действительных чисел x1,x2,...,x...

Даны два числа. Замените большее из двух чисел числом 5, а меньшее полупроизведением этих чисел
в паскале пожалуйста.

Дан текстовый файл в котором даны 5 чисел разделенные пробелом нужно вычислить сумму и произведение этих чисел
Здравствуйте у меня просьба к вам прошу помочь решить задачу на паскале при...

Даны натуральные числа n и m. Среди чисел n, n+1, ... , m найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел
Здравствуйте. Помогите пожалуйста написать код к следующей задаче: Даны...

1
sano32
65 / 62 / 63
Регистрация: 15.12.2010
Сообщений: 150
15.02.2011, 21:01 #2
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var s,i:integer;
    a:array[1..10]of integer;
begin
clrscr;
randomize;
for i:=1 to 10 do
    begin
         a[i]:=random(10);
         write(a[i]:3);
    end;writeln;
for i:=2 to 10 do
    begin
         s:=s+a[i]*a[i-1];
    end;
writeln(s);
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.02.2011, 21:01

Даны 2n чисел таких, что их можно разбить на пары таким образом что произведение чисел в парах равны
нужно написать прогу к ЗАДАЧЕ: Имеется 2*N чисел. Известно что их можно...

Даны 5 чисел a,b,c,d,e. Расставить их в порядке возрастания используя не более семи сравнений, без массива и перестановки именно чисел.
Помогите решить в Pascal'е, pls. тема: циклический алгоритм. Добавлено...

Даны два множества М и N, состоящие из 10 целых чисел из диапазона 1.100. Из данных множеств выделить соответственно под-множества М1 чисел
Даны два множества М и N, состоящие из 10 целых чисел из диапазона 1..100. Из...


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

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

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