Помогите с информатикой
Приложения:
Ответы на вопрос
Ответил SkalikS
0
Ответ:
400
см. приложение
Приложения:
Ответил SkalikS
0
var
x: real;
begin
Read(x);
if x <= 0 then
Write(0)
else if x <= 1 then
Write(x)
else
Write(x * x);
end.
x: real;
begin
Read(x);
if x <= 0 then
Write(0)
else if x <= 1 then
Write(x)
else
Write(x * x);
end.
Новые вопросы