Question

Написать программу на паскале следующего примера a+b*b/c

Answer 1

var
a,b,c:integer; x:real;
begin
write('Введите A=');read(a);
write('Введите B=');read(b);
write('Введите C=');read(c);
x:=a+b*b/c;
write('X=',x);
end.

Answer 2

зачем тратить лишнюю переменную?