Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Задание 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    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.