Предмет: Информатика, автор: mashA1112002

Напишите программу паскаль

Приложения:

Ответы

Автор ответа: iolandavalerypad353
0

var

 x, y: real;

begin

 Read(x);

 if x < 0 then

   y := x + 5

 else

   y := x * x + 1;

 Write(y)

end.

Похожие вопросы
Предмет: Химия, автор: СофикоМ