.Е.-Прокопьева
?>

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

Информатика

Ответы

Koranna1986

Число, выведенное на экран 144

Объяснение:

var

 x, y: real;

begin

 Write('Введите значние x: '); ReadLn(x);

 if x <= 0 then y := 0 else if x > 1 then y := sqr(x) else y := x;

 WriteLn('y(', x, ') = ', y);

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Запиши программу на языке Паскаль
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

iordanekaterina
Bogataya Vladimir318
Aleksandrovna1153
ietishkin
gordeevadesign2986
ksen1280
Pona4ka93
ulyana-d
fedserv
oskon008
Волков1968
nikolai37
Татьяна1856
garunkhachatryan
Ingakazakova