Question

преобразовать алгоритм, записанный на алгоритмическом языке в программу на языке pascal.
алгоритмический язык:
алг выражение
нач цел х
вещ у
ввод х
если х> =0
то у: =sqrt (x)
иначе у: =аbc (х)
все
вывод у
кон

Answer 1

Ответ:

аbc (х) судя по всему - это abs(x) - модуль числа x.

begin

var x: integer;

var y: real;

readln(x);

if (x>=0) then y:=sqrt(x)

else y:=abs(x);

writeln(y);

end.