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.
524288 бит=512 килобайт, наверное...
Во втором задании ответ 3