1. Три числа задані формудами:

Вибрати ті з них, модулі яких менші 5. Надрукувати їх і їхні квадрати.

Program Modul;
Var n,m,l,k,p:real;
Begin
Readln(n,m);
If n=0 then exit;
l:=(n-3*m)/2; k:=(2*n+m)/n; p=n*m-9.3;
if (l>5) and (l<5) then Writeln(l,sqr(l));
if (k>5) and (k<5) then Writeln(l,sqr(l));
if (p>5) and (p<5) then Writeln(l,sqr(l));
End.

2. Є перші N натуральних чисел. Визначити середнє арифметичне.

Program Seredne;
Var i,S:integer;
p:real;
Begin
Readln(N);
S:=0;
For i:=1 to N do S:=S+i;
p:=S/N;
Writeln(p);
End.

ІІ-В

1. Три числа задані формулами:

Вибрати ті з них, які лежать на проміжку [1;5], і надрукувати їх.

Program Modul;
Var n,m,a,b,c:real;
Begin
Readln(n,m);
If n<=0 then exit;
a:=(n+m)/4; b:=ln(n)-3.5; c=(n-m)/n;
if (a>=1) and (a<=5) then Writeln(a);
if (b>=1) and (b<=5) then Writeln(b);
if (c>=1) and (c<=5) then Writeln(c);
End.

2. Обчислити середнє геометричне елементів натурального ряду від 1 до N.

Program Seredne;
Var i,S:integer;
p:real;
Begin
Readln(N);
S:=0;
For i:=1 to N do S:=S+sqr(i);
p:=sqrt(S);
Writeln(p);
End.

Домашні задачі

7. Обчислити значення многочлена n-го степеня виду:

Program Znachenya;
Var i,N:integer;
Y,a,x:real;
Begin
Readln(N);
Readln (x)
Y:=0;
For i:=N downto 1 do
Begin
Readln(a);
Y:=Y+a*exp(i*ln(x));
End;
Writeln(Y);
End.

8. Скласти програму обчислення суми членів ряду:

Program Znachenya;
Var i,N,Y:integer;
S:real;
Begin
Readln(N);
Readln(x);
Y:=1;S:=1;
For i:=1 to N do
Begin
Y:=Y*i;
S:=S+exp(i*ln(x))/Y;
End;
Writeln(S);
End.