Перевести с алгоритма на паскаль
Алг выражение
Нач цел Х
Вещ У
Ввод Х
Если Х больше 0
То У равен корень из Х
Иначе У равен abs(Х)
Все
Вывод У
Конец
Ответы
Ответ дал:
0
Конечно, в таком стиле не пишут, но это специально для Вас, чтобы было максимально похоже на "алгоритм".
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!
begin
var x:integer;
var y:real;
Read(x);
if x>0
then y:=Sqrt(x)
else y:=Abs(x);
Writeln(y)
end.
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!
begin
var x:integer;
var y:real;
Read(x);
if x>0
then y:=Sqrt(x)
else y:=Abs(x);
Writeln(y)
end.
Ответ дал:
0
Мне просто природное упорство не позволяет тупо заткнуться.
Ответ дал:
0
Это лишь потому, что еще возраст детский и ни разу, видимо, еще "не нарвались". Во взрослом мире тем, кто не умеет "вовремя заткнуться" очень быстро "заряжают в пятак" и все само-собой устраивается. Через некоторое небольшое количество лет у Вас будет возможность это проверить на практике.
Ответ дал:
0
Согласен.
Ответ дал:
0
Но нарывался не раз
Ответ дал:
0
Но,видать,не научило.
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад
9 лет назад