Ответы
Ответ дал:
0
Вот так надо?
Var y,a:real;
begin
Write('Введите число а=');
readln(a);y:=a*a/4;
Write('Ответ ',y);
end.
Var y,a:real;
begin
Write('Введите число а=');
readln(a);y:=a*a/4;
Write('Ответ ',y);
end.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад