Типичное задание на круги Элепса Ответ:4213
Program e1;
var
x, y: real;
begin
writeln('Введите х');
readln(x);
if x < 5 then y := (4 * sqr(x) + 1) / (-5)
else y := 3 * sqr(x) - 2;
writeln('y=', y)
end.
--------------------------------------------
program e2;
var
x, y: real;
begin
writeln('Введите х');
readln(x);
if x > -4 then y := (5 * sqr(x) + 2) / (x + 4)
else y := 3 * sqr(x) + 7;
writeln('y=', y)
end.
У меня нет Турбо Паскаля, вставьте там в начале, как всегда пишете директиву uses Crt
Const
var s:integer;
procedure ploshad poverhnosti (s:integer);
var h,l,sbok:integer;
begin
writeln (' vedite l i h');
readln (l,h);
sbok:=h*(l^2);
end;
begin
s:=(ploshad poverhnosti)+2*(l^2);
writeln(s,' ');
readln;
end.
Но это очень не точно.
Не знаю, какой язык вы учите в школе, напишу на паскале
program max;
var
x, y: Integer;
begin
if x > y then writeln(IntToStr(x))
else <span>writeln(IntToStr(y));
</span>readln();
end;