Предмет: Информатика,
автор: mashA1112002
Напишите программу паскаль
Приложения:
Ответы
Автор ответа:
0
var
x, y: real;
begin
Read(x);
if x < 0 then
y := x + 5
else
y := x * x + 1;
Write(y)
end.
Похожие вопросы
Предмет: Математика,
автор: coyev
Предмет: Английский язык,
автор: popovavaleria1331
Предмет: Обществознание,
автор: Аноним
Предмет: Алгебра,
автор: rylovasvetlana
Предмет: Химия,
автор: СофикоМ