// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var d:=ReadReal('D=');
if d<=-30 then Writeln(d/10)
else
if d>=20 then Writeln(sqr(d-1))
else Writeln(1-2*d)
end.
Паскаль
if (x<100) and (x>9) and (x mod 19 = 0) then count += 1
Так как я очень много играю в компьютерные игры: я хочу две очень мощные видеокарты, самый лучший процессор, много оперативной памяти, а также кучу свободного пространства на жестких дисках. Три огромных монитора формата Ultra HD, Красивую клавиатуру с подсветкой и удобную мышку. (Написал на ходу)
Он оказался в этом же каталоге - Энциклопедия