Var x,y : real;
function F(x:real):real;
begin
if x>0 thenF:=(x*x*x-(5*x))/18
else
F:=(x*x-(6*x))+15;
end;
begin
read(x);
y:=F(x);
Writeln(y);
end.
Var x: Integer;
begin
readln(x);
writeln(((3/abs(x))+(exp((1/3) * ln(x))))/1);
end.
1) размер изображения=640*480*3=112,5 кбайта
передача=28800/8=3600 байта/с
время=115200/3600=32 с
2) размер файла=10*51200/8=64000 байта
Количество символов=64000*8/16=32000 символов
3) Размер файла=4096*600=2,3Мбайта
1. использовать Робот
алг нач
нц 3 раз
вверх
вправо
вверх
влево
кц
кон
2. использовать Робот
алг
нач
нц 3 раз
вправо
вниз
вправо
вверх
кц
кон
Позиционная наша обычная которой пользуемся десять - 10
непозиционная римская десять - XX