Воспользовавшись графическим редактором на своем компьютере (например, Paint), создайте изображения в форматах BMP и JPEG. 4. Вставьте это изображения в документ Word и увеличьте каждое примерно в два раза. Какой формат справился с увеличением лучше? ответьте письменно

трех зайцев по углам, двоих вдоль стен

первый день - 1 из 4,

второй день - 1 из 3,

третий день - 1 из 2,

четвёртый день - 1.

4*3*2*1=24 (сп.)

ответ: 24 способа.

var s,a,i: real;

begin

  repeat

      writeln("вес следущего пасажира kg");

      read(a);

      s: =s+a;

      if s< 8000 then

          i: =i+1;

  until s> =8000

  writeln(i);

end.

var b,a,i: real;

begin

  read(a,b);

  repeat

      a: =a+a*0.03;

      i: =i+1;

  until a> =b

  writeln(i);

end.

var i,s: integer;

begin

  for i: = 1900 to 1999 do begin

        s: =s+365;

        if (i mod 400=0) or ((i mod 4 = 0) and (i mod 100< > 0)) then

            s: = s+1;

  end;

  writeln(s);

end.

на чём писать? ну впрочем саму суть тут в условии:

объявляешь 3 числа: a b c

и условие

  if(a> 0)then

a: =a*a;

if(b> 0)then

b: =b*b;

if(c> 0)then

c: =c*c;

  выводишь на экран(или как там надо)

сори за ошибки давно на паскале не писал