PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
№1
begin
var x:=ReadReal('x=');
var y:real;
if x<0 then y:=x*x else y:=1+x;<br> Writeln('y=',y);
end.
Пример
x= -4.18
y=17.4724
№2
begin
var (a,b):=ReadReal2('Введите через пробел или Enter два числа:');
if a>b then Writeln('Первое число больше')
else
if b>a then Writeln('Второе число больше')
else Writeln('Числа равны')
end.
Пример
Введите через пробел или Enter два числа: 45 11.7
Первое число больше