2 мальчика плывут на тот берег
1 мальчик возвращается
1 солдат плывет на тот берег
второй мальчик возвращается
2 мальчика плывут на тот берег
1 мальчик возвращается
1 солдат плывет на тот берег
второй мальчик возвращается
и так по кол-ву солдат
ну его в баню такую переправу и бедные мальчики
11110101 1+4+16+32+64+128=245
Var i,j,n,m:integer;
a:array[1..100] of integer;
begin
Read(n);
for i:=1 to n do
for j:=1 to n do
begin
if cos(sqr(i)+n)>0 then m:=m+1;
End;
write(m);
<span>End.</span>
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and((x<=0)or(y<=0))
then writeln('Да')
else writeln('Нет')
end.
Пример:
<span>x = -3
y = 3
Да</span>