1 задание:
var
x, a: integer;
y: real;
begin
readln(x);
a := -4 + 2 * x;
y := x / a - sqr(a);
writeln(y);
end.
2 задание:
var
a: real;
begin
writeln('Чему равен коэффициент свободного падения?');
writeln('Введите число и нажмите ');
readln(a);
if a = 9.81 then writeln('Правильно! Молодец!')
else writeln('Не правильно. Вы ошиблись!');
end.
3 задание:
var
n, i: integer;
ans: real;
begin
readln(n);
ans := 0;
for i := 1 to n do ans += sqrt(i) / (2 + i);
writeln(ans);
end.