Скачиваний:
304
Добавлен:
04.03.2014
Размер:
46.08 Кб
Скачать

Пусть даны вещественные числа 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

да

да

да

нет

да

да