Question

Информатика (19 баллов)

Answer 1

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017

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

1)

begin
var x:=ReadReal('X =');
Writeln('Y = ', x>=0 ? 7*x - 3:2*x*x*x);
end.

2)

begin
var a:=ReadReal('Результат первого участника равен');
var b:=ReadReal('Результат второго участника равен');
var c:=ReadReal('Результат третьего участника равен');
Writeln('Лучший результат: ', min(min(a,b), c));
end.

3)

begin
var b:= ReadReal('b =');
Writeln(b > 3? b-5:b*2);
end.