Вот держите:
var n,i,l,m:integer; sum:real;
begin
readln(n);
sum:=1; l:=1;
while m<>n do begin
m:=m+2;
sum:=sum-((1/m)*l);
l:=l*-1;
end;
writeln(sum);
end.
1)Заливаем полный 3-х л. кувшин
2)Выливаем его в 5 л. кувшин
3)Заливаем полный 3-х л. кувшин
4)Выливаем его в 5 л. кувшин(в 3-х литр. кувшине остается 1л.)
5)Выливаем 5-литр. кувшин
6)Выливаем остатки с 3-х литр. кувшина в 5-литр. кувшин
7)Заливаем полный 3-х л. кувшин
8)Выливаем его в 5 л. кувшин
Все
D и A т,к они расположены на противоположных вершинах квадрата и кратчайшее расстояние 13 (9+4)
Т.к 30 символов, то умножаем на 2 и получаем 60 байт.Теперь умножаем на 8 и получаем 480бит.
Ответ:2
Var
a,b,c,y,x,:real;
function stup(x:real;n:integer):real;
var
i:integer;
k:real;
begin
k:=1;
for i:=1 to n do k:=k*x;
stup:=k;
end;
begin
writeln ('Введите x (число должно быть положительным)'); readln (x);
if x>=0 then begin
a:=stup(x,6); b:=stup(x-5,3); c:=stup(2*x+1,5);
y:=(a*b)/c;
Writeln ('y=',y:5:2);
end
end.