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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
lemon4eggg
#1

Даны 10 чисел... - Turbo Pascal

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

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

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

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

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

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

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

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

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

1
sano32
65 / 62 / 24
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

Даны 2 последовательности чисел: а1,а2.а8 и b1,b2.b8 - Turbo Pascal
Даны 2 последовательности чисел: а1,а2...а8 и b1,b2...b8. Найти кол-во чётных чисел в первой из них и количество нечётных во...

Даны два файла вещественных чисел - Turbo Pascal
Очень прошу помочь с заданием, написать программу :sorry:: Даны два файла вещественных чисел с именами NameA и NameB, содержащие элементы...


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

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

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