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

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

Задать свой вопрос
1 ответ
Program p;
var x,y: real;
begin
readln(x);
if xlt;=0
then y:=0  else *2-ое условие*;
writeln( y:3:0);
end.
Никита
вроде так,но не точно
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт