Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin n : = 1; s : = 0; while n < = 101 do begin s : = s + 7; n : = n + 1 end; write(s) end.

Ответ 707(вбил прогу в паскале)

если вы хотите чтобы выводился результат выражения b*b*(5*a-150), то вы пропустили скобку.

текст программы выглядит так:

program vasiljev_hw6;

var

  a: integer;

  b: integer;

begin

  writeln('васильев алексей 7а вариант6');

  writeln('введите переменную a: ');

  readln(b);

  writeln('введите переменную b: ');

  readln(a);

  writeln(b * b * (5 * a - 150));

end.

опять же, я не понимаю почему вы выводите 'введите переменную а', а считываете b, и наоборот

!

периметр:

program x;

var

y,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16: integer;

begin

writeln('введите длины всех сторон шестнадцатиугольника, см: ');

readln(x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16);

y: =x1+x2+x3+x4+x5+x6+x7+x8+x9+x10+x11+x12+x13+x14+x15+x16;

writeln('периметр данного шестнадцатиугольника,см= ',y);

readln;

end.

площадь:

var a : integer;  

s : real;  

function squaretr(a : integer) : real;  

begin  

squaretr : = (sqrt(3)*a)/2  

end;  

begin  

writeln('введите сторону шестнадцатиугольника: ');  

readln(a);  

s : = 16 * squaretr(a);  

writeln('площадь шестнадцатиугольника со стороной а, равна ', s: 16: 16);  

end.