1) Объем файла= 2*16* 90* 48000=138240000 бит
Program zadacha;
uses crt;
var a, b, w, k: integer;
x: real;
begin
clrscr;
write ('vvedite a, b, w, k: ');
readln (a, b, w, k);
if k=1 then x:=log2(w-a)
else if k=2 then x:=sqrt(sqr(w)+b*w+a)
else if k=3 then x:=sqrt(w+a)+sqrt(w+b)
else if k>3 then x:=-(a*w)/w
else writeln ('nevernye ishodnye dannye');
writeln ('x=', x:0:4);
readkey;
end.
Тест:
a=2, b=3, w=7, k=1
x=2.3219
Нужно сначала наполнить 5 литровое ведро и вылить в 9, а потом ещё раз наполнить 5 литровое ведро и вылить в 9 литровое в котором уже есть вода. Остаток в 5 литровом ведре и будет 1 литр. Как-то так
А право 2 клетки прямо 3 клетки налево 2 клетки 5 клеток в право и 1 клетка вниз
Var a:array[1..10] of integer;
i:integer;
begin
i:=1;
repeat
readln(a[i]);
i:=i+1;
until i>10;
end.