<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,c):=ReadReal3('Введите через пробел три числа:');
if a*b*c<>0 then Writeln((a+b+c)/3)
end.
<u>Пример</u>
Введите через пробел три числа: 6.3 -12 8.143
0.814333333333333
Если Вы хотите чтобы выводился результат выражения 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, и наоборот
1. С:\Физика\Задачи\Механика
2. С:\Физика\Задачи
3. С:\Физика
4. С:\Физика\Экзамен\Вопросы.doc
Путь: С:\Физика\Экзамен\Вопросы.doc