Question

Помогите,
ДАЮ 20 баллов

Answer 1

1) a:=10

b:=5

b:=100+10/5    = 102

a:=102/6*5     =102/6=17*5=85

значение переменной а = 85

2) i                            s(3)

    2                       3+2*2=7

    3                       7+2-3=13

    4                      13+2*4=21

    5                      21+2*5=31

s=31

3) program n1;

var a:integer;

begin

write('введите число ');

readln (a);

if a>0 then

a:=a*8;

writeln ('a=', a)

end.

4)  program n2;

var y,x:integer;

begin

write('введите число x - ');

readln (x);

if x>0 then

y:=x-2 else

     if x<0 then

     y:=abs(x) else

        y:=0;

writeln ('y=', y)

end.

5) program n3;

var s,i:integer;

begin

write('сумма четных чисел в промежутке от 26 до 88 = ');

s := 0;

for i := 26 to 88 do

  if i mod 2 = 0 then

    s := s + i;

writeln(s);

end.