Cоставить программу вычисления R =2,7 b^2-a1/5(a2),при b= 8,4,6,2,0

Question

Cоставить программу вычисления R =2,7 b^2-a1/5(a2),при b= 8,4,6,2,0

Answer 1

Var a,r,b:real;
begin
b:=8;
writeln ('Введи a');
readln (b);
r:=2.7*b*b-a*1/5*(a*2);
writeln ('r = ',r);
end.

Comments

а через qbasic можно?

---

помогите плииз,как это решить через qbasik