Сукупність засобів, презначених для обмину електронними листами між користувачами комп'ютерної мережі

var

x,y: real;

i,n: integer;

begin

n: =1;

x: =1;

y: =1;

for i: =1 to 5 do

begin

n: =n*i;

x: =-1.5*x;

y: =y*(x+1/n);

end;

writeln(y: 15: 5);

end.

Музыкант дружил с андреевым, сейчас дружит с ивановым [3], значит, он не андреев и не иванов. кроме того, андреев никогда не был знаком с петровым [4], но был дружен с музыкантом, значит, петров - тоже не музыкант. поэтому музыкант сидоров. иванов и андреев - не солисты хора, так как были на его концерте [1], отсюда единственная возможность -  солист хора - петров. петров незнаком с андреевым [4], но позировал художнику [2], поэтому знаком с ним. значит, андреев - не художник,  андреев - танцор. для иванова остался последний вариант,  иванов - художник.

const n=10;

var a: array[1..n] of real;

i: integer;

x: real;

begin

randomize;

for i : = 1 to n do

a[i] : = random (100)-50;

readln(x);

for i: =1 to n do

if a[i]> x then p: =p*i;

writeln(p);

end.