// 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.
// Задание №1
var
a,s: integer;
begin
a:=300;
repeat
s:=s+a;
a:=a+2;
until a>400;
writeln('s = ', s)
end.
// Задание №2
var
a: integer;
begin
a:=100;
repeat
if a mod 8 = 0 then write(a:4);
a:=a+1;
until a>999;
end.
Сместиться в точку (1, 4)
опустить перо
сместиться в точку (1, 1)
сместиться в точку (5, 1)
сместиться в точку (5, 4)
сместиться в точку (1, 4)
сместиться в точку (3, 6)
сместиться в точку (5, 4)
поднять перо
сместиться в точку (2, 2)
опустить перо
сместиться в точку (2, 3)
сместиться в точку (4, 3)
сместиться в точку (4, 2)
сместиться в точку (2, 2)