Два мальчика на противоположном береге.
Один переправляет лодку, переплывает солдат, лодку возвращает другой, оба возвращаются на противоположный берег.
И пускай хоть бесконечность солдатов будет.
Палитра 512 цветов=2**9=>глубина цвета 9 бит.
36Кб=36*8*1024=294912 бит
Объем изображения=Размер изображения *на глубину цвета=>294912=256*a*9=>a=128
Задача 2
var a,b:real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if (a>=0) and (a <=15) or (b>=0) and (b<=15) then
writeln(sqr(a)+sqr(b))
else
writeln ((a+b)/2);
readln;
<span>end.
задача 1
</span>var x:real;
begin
write('x= ');
readLn(x);
if x<6 then WriteLn(sqr(x));
if (x>=-6)and(x<6) then
WriteLn(Abs(x)+4);
if x>=6 then
writeLn(x*(x+1))
end.
задача 3
Var a,b,c,d:real;
x1,x2:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
d:=sqr(b)-4*a*c;
if D>0 then begin
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
end;
if d=0 then writeln('koren=',-b/2*a);
if d<0 then writeln
('kornei net')
<span>End.</span>