Решите 1.Какое число будет выведено на экран в результате выполнения этого цикла?
i:=3
вывод '9'
нц пока i<6
вывод i
i:=i+1
кц

2.Чему будет равно значение переменной «a» после выполнения этого цикла?
i:=4
a:=0
нц пока i<6
a:=a+i
i:=i+2
кц​

а) (11111012 + AF16)/368

Переведем числа в одну систему счисления

1111101 = 1*2^6 + 1*2^5 + 1*2^4 + 1*2^3 +1*2^2 +0*2^1 +1*2^0 = 125 (10 CC)

AF = A*16^1 +F*16^0 = 160 +15  =175 (10 CC)

36 = 3*8^1 + 6*8^0 = 24 +6 = 30 (10 СС)

Считаем:

(125 +75) / 30 = 300 / 30 = 10 (10 СС)

б) 1258 + 111012*A216 - 14178

Переведем числа в одну систему счисления

125 = 1*8^2 + 2*8^1 + 5*8^0 = 64 +16 + 5 = 85 (10 CC)

11101 = 1*2^4 + 1*2^3 +1*2^2 +0*2^1 +1*2^0 = 16 + 8 + 4 + 0 + 1 = 29 (10 CC)

A2 = A*16^1 + 2*16^0 = 160 + 2 = 162 (10 CC)

1417 = 1*8^3 + 4*8^2 + 1*8^1 + 7*8^0 = 512 + 256 + 8 + 7 = 783 (10 CC)

85 + 29*162 - 783 = 4000 (10 CC)

Блок-схемы - во вложениях

1.

Program Irina09Gross1;
const n=10;
var a,b,c,p,s: real;
  begin
  writeln('*** Alphaues is thinking... ***');
  writeln('***          OK!            ***');
  writeln();
  writeln('Введите стороны треугольника');
    write('Введите а');
    readln(a);
    write('Введите b');
    readln(b);
    write('Введите c');
    readln(c);
  p:=(a+b+C)/2;
  S := sqrt(p*(p-a)*(p-b)*(p-c));
  writeln('Площадь треугольника равна ',s);
end.

2.

Program Irina09Gross2;
const n=10;
var a,b,h,v,s,r: real;
  begin
  writeln('*** Alphaues is thinking... ***');
  writeln('***          OK!            ***');
  writeln();
    write('Введите длину основания ');
    readln(a);
    write('Введите ширину основания ');
    readln(b);
    write('Введите высоту параллелепипеда ');
    readln(h);
  s := 2*(a*b+b*h+h*a);
  v := a*b*h;
  r := 4*(a+b+h);
  writeln('Объём равен ',v);
  writeln('Площадь полной поверхности равна ',s);
  writeln('Сумма рёбер равна ',r);
end.