1. Если в документе имеются рисунки (изображения), то их нужно сжать, уменьшить в размере или уменьшить качество.
2. Если нет, то скорее всего поможет изменение размера текста.
№1
Program anton4nk;
uses crt;
var a,b,c:real;
begin
clrscr;
writeln(' Введите в последовательности A, B, C');
readln(a,b,c);
writeln(b+sqrt(sqr(b)+4*a*c)/2*a);
end.
______________________________________
№2
Program anton4nk;
uses crt;
var a,b,c,d:real;
begin
clrscr;
writeln('Введите в последовательности A, B, C, D');
readln(a,b,c,d);
writeln((a/c)*(b/d)-(a*b-c)/(c*d));
end.
______________________________________
Третяя правильная ну последняя
Var
y, x: real;
begin
read(x);
if (x > -20) and (x < -10) then
y := x * x * x * x
else if (x > -10) and (x < -20) then
y := abs(x)
else if ((x > 0) and (x < 20)) or ((x > 30) and (x < 70)) then
y := 45
else if ((x > 80) and (x < 100)) or ((x > 110) and (x < 140)) or (x > 180) then
y := abs(x - 4)
else
y := abs(x + 2);
writeln(x, ' ', y);
end.
Var
x, cs, tg: real;
begin
Write('Введите число в диапазоне [0..3.14]: ');
Readln(x);
if (x < 0) or (x > 3.14) then Writeln('Число вне диапазона')
else begin
cs := cos(x); tg := tan(x);
if cs > tg then Writeln('cosX > tgX')
else if cs = tg then Writeln('cosX = tgX')
else Writeln('cosX < tgX')
end
end.
Тестовое решение:
Введите число в диапазоне [0..3.14]: 1.58
cosX > tgX