Запустить а размножать можно если копировать
PascalABC.NET 3.2 (сборка 1482 от 13.06.17)
Begin
Write('Количество отрицательных чисел: ',ReadSeqReal('Введите три числа:',3).Where(x->x<0).Count)
End.
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal;
var y:real;
if x<5 then y:=1/(x-5)
else
if x=5 then y:=45
else y:=x**3-20;
Writeln(y)
end.
<u>Пример</u>
12.543
1953.350667007
При использовании палитры из 16 млн цветов для хранения цвета одного пикселя требуется log(2)16777216 = 24 бита. Объем изображения = 800*600*24 бит. Время передачи изображения = 800*600*24/14400 = 800 с