vladmor Задание 3.7

//Pascal
var i,n,k:integer;
begin
  n:=24;
  k:=1;

  //количество амеб через
  //цикл for

  for i:=1 to n div 3 do begin
    k:=k*2;
    writeln('Время :',i*3,' Амеб  :',k);
  end;
  writeln;

  //количество амеб через
  //цикл while

  i:=0;
  k:=1;
  while i<n do begin
    i:=i+3;
    k:=k*2;
    writeln('Время :',i,' Амеб  :',k);
  end;
  writeln;

  //количество амеб через
  //цикл Repeat

  i:=0;
  k:=1;
  repeat
   i:=i+3;
   k:=k*2;
   writeln('Время :',i,' Амеб  :',k);
  until i=n
end.

Задание 3.8

var
k,b,t:integer;
begin
for b:=1 to 10 do
  for k:=1 to 20 do
    for t:=1 to 200 do
      if (b*10+k*5+t*0.5=100)and(b+k+t=100)then writeln('Быков: ',b,' Коров:',k,' Телят:',t);
end.