По подробней
а аааааааааааааааааааааааааааааааааааааааааааааа
Var
x,y:real;
begin
Write('Введите значение аргумента x: ');
Readln(x);
if x<=-7 then y:=25
else
if x<=5 then y:=17*x-1
else y:=sqr(x);
Writeln('Значение функции равно ',y:0:4)
end.
Тестовое решение:
Введите значение аргумента x: 3.78
Значение функции равно 63.2600
<span>В прямом - действие выполняется сразу после ввода командной строки. В программном - после компиляции, сборки всех действий автоматически - все описанные действия попорядку</span>
Находим сколько бит информации несет 1 цвет по формуле Хартли N=2^i => 256=2^8 => 8 бит
Формула объема V=I*X*Y => 8*1280*1024=10485760 бит переведем в байты, т.е. разделим на 8=1310720 байт
правильный ответ Г