Раньше люди жили без телевизоров телефонов отчитали из книги когда нечего было делать этим развивались.
Примеры?
Дискета
Жесткий диск
Компакт-диск
Карта памяти
Флешка
Кассета
Пластинка
Перфокарта
Можно долго продолжать этот список...
С минимальной степенью сжатия. чем больше сжатие, тем медленее процесс
Var
x: real;
begin
readln(x);
if (x <= 0) then
x := 0;
writeln('y = ', x);
end.
------
Или так:
var
x: real;
begin
readln(x);
writeln('y = ', x > 0 ? x : 0);
end.
<span>BORDER=0 CELLSPACING=0 CELLPADDING=0</span>