Ответ(ы) на вопрос:
Гость2)
var
x, y, c: integer;
r: real;
begin
readln(x, y, c);
r := (x+y)/(2*c);
writeln(r);
end.
3)
var
x: integer;
r: real;
begin
readln(x);
r := abs(x) / 2;
writeln(r);
end.
4)
var
a: real;
r: integer;
begin
readln(a);
r := sqr(trunc(a));
writeln(r);
end.
Не нашли ответ?
Похожие вопросы