Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Запиши программу на языке Паскаль для! Срочно помогите

Danil Pokasov Знаток (306), на голосовании 3 года назад
Голосование за лучший ответ
samurai Гуру (2637) 3 года назад
var
x, y: real;
begin
readln(x);
if x<=0 then
y:=0;
if (x>0) and (x<=1) then
y:=x;
if x>1 then
y:=sqr(x);
writeln(y);
end.
Danil PokasovЗнаток (306) 3 года назад
с этим не поможете ?
samurai Гуру (2637) Danil Pokasov, очевидно же, что 1
Похожие вопросы