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