Предмет: Информатика,
автор: Bredosina
задания 2, 3, 4 , информатика, 7 класс
Приложения:
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Русский язык,
автор: linasavina87
Предмет: Русский язык,
автор: kairbolatkyzyaikon
Предмет: История,
автор: denuszhula
Предмет: Алгебра,
автор: Аноним
Предмет: Литература,
автор: eseniyaguzenko