Neabalzhy
7 год назад
Решите.....................
ОТВЕТЫ
Вуколович
Jul 17, 2019
Var
x,y: real;
begin
readln(x);
if(x lt;= 0) then begin y := 0;write(y); end
else if(x gt; 0) and (x lt;= 1) then begin y := x;write(y:3:0); end
else if(x gt; 1) then begin y := sqr(x);write(y); end;
end.
Ввод 13
Вывод 169
x,y: real;
begin
readln(x);
if(x lt;= 0) then begin y := 0;write(y); end
else if(x gt; 0) and (x lt;= 1) then begin y := x;write(y:3:0); end
else if(x gt; 1) then begin y := sqr(x);write(y); end;
end.
Ввод 13
Вывод 169
236
Смежные вопросы:
