Контрольная работа: Работа с редакторами Word и Excel Программирование в Паскале

for i:=n1 to n2 do sum:=sum+i;

writeln(sum);

end

else if n2<n1 then begin

for i:=n2 to n1 do sum:=sum+i;

writeln(sum);

end

else if n1=n2 then writeln ('N1=N2!');

sum=0

readln

end.

4. Дана функция

2 x , x <0

y = 0, x =0

0,5 x , x >0

Найти значения функции для всех целых значений х из диапазона -3..8.

Для решения использовать цикл

с постусловием.

Program funct;

Var

Y:real;

x:integer;

Begin

Writeln (‘znachenie ot -3 do 8’);

X:=-3;

reapet

If x<0 then y=2*x;

If x=0 then y=0;

If x<0 then y=0,5*x;

Writeln (‘x=’, x, ’ y=’, y);

X:=x+1;