Question

Ребята программу под Паскаль T=
√(a-b)^2+4
-----------------------
(a-2b)+1

Answer 1

program math;
var
x, a, t : real;

begin
write('Введите число a: ');
readln(a);
write('Введите число b: ');
readln(b);
t := (sqrt((a-b)*(a-b))+4)/((a-2*b)+1);
writeln('t=', t:10:4);
end.