Помогите решить информатику пожалуйста(нужно в 3 циклах) Задачи 3.7 и 3.8, 3.6 не нужно

можно кстати 3.8 только цикл для сделать

Готово

скиньте пожалуйста

Копируйте из решения

спасибо

Задание 3.7//Pascalvar 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=nend.Задание 3.8vark,b,t:integer;beginfor 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.