Все готовые лабы по паскалю (1 zadanie)

Посмотреть архив целиком

Пусть даны вещественные числа a1,a2,…an,b1,b2,…,bn. Вычислить произведение (a1+bn)*(a2+bn-1)…*(an+b1).




  • Текст программы:


const m=4;

var

a,b:array[1..m] of real;

i:integer; k:real;

begin

for i:=1 to m do

begin

write('a[',i,']=');

readln(a[i]);

end;

for i:=1 to m do

begin

write('b[',i,']=');

readln(b[i]);

end;

k:=1;

for i:=1 to m do

begin

k:=k*(a[i]+b[m+1-i])

end;

writeln(k);

readln;

end.



  • Исходные данные: a[1]=2;a[2]=3;a[3]=4;a[4]=5;b[1]=4;b[2]=1;b[3]=7;b[4]=3 Результата: 2.2500000000E+03



















да









да

да


нет

да

да



Случайные файлы

Файл
4827-1.rtf
181588.rtf
112647.rtf
5700-1.rtf
work.doc




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.