Контрольная работа: Выражения и условный оператор IF. Операторы циклов. Массивы и подпрограммы

i:=i+1;

until i>10;

write (' Значение s: ');

writeln (s:0:8);

{цикл "for ... to ... do"}

writeln ('3. Цикл "for ... to ... do"');

x:=a;

s:=0;

for i:=1 to 10 do

begin

s:=s+sin (x+3)/exp (2/5*ln (x+3));

x:=x+h;

end ;

write (' Значение s: ');

writeln (s:0:8);

{цикл "for ... downto ... do"}

writeln ('4. Цикл "for ... downto ... do"');

x:=a;

s:=0;

for i:=10 downto 1 do

begin

s:=s+sin (x+3)/exp (2/5*ln (x+3));

x:=x+h;

end ;

write (' Значение s: ');

writeln (s:0:8);

readln ;

End .

Тестирование программы: