Перевести с метода на паскальАлг выражение Нач цел Х Вещ У

Перевести с алгоритма на паскаль
Алг выражение
Нач цел Х
Вещ У
Ввод Х
Если Х больше 0
То У равен корень из Х
Иначе У равен abs(Х)
Все
Вывод У
Конец

Задать свой вопрос
1 ответ
Окончательно, в таком стиле не пишут, но это специально для Вас, чтоб было очень схоже на "алгоритм".

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018

Внимание! Если программка не работает, обновите версию!

begin
  var x:integer;
  var y:real;
  Read(x);
  if xgt;0
  then y:=Sqrt(x)
  else y:=Абс(x);
  Writeln(y)
end.
Меркурьева Виолетта
Я теснее и так на самом деньке, дак еще и допнули...
Карина
Мне просто природное упорство не позволяет тупо заткнуться.
Игорь Рапницкий
Согласен.
Юлия Потапушина
Но нарывался не раз
Виктор Ардашев
Но,видать,не научило.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт