Виконання

program Project1;

uses

SysUtils, Math;

var x, y, a, b, h, sum : real;

begin

writeln('Enter a');

readln(a);

writeln('Enter b');

readln(b);

writeln('Enter h');

readln(h);

x:=a;

Writeln;

writeln('| X | Y |');

sum:=0;

repeat

y:=2*tan(x/2)+1;

if (y>0) and (y<2) then

sum:=sum+y;

writeln('| ',x:5:2,' | ',y:7:2,' |');

x:=x+h;

until x>b;

Writeln;

Writeln('sum=',sum:5:2);

readln;

end.

Рис.2.1 Програма в процесі виконання

2. Задано натуральне число . Обчислити добуток .