Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  1
Language: C/C++
Code:
program abc;
var
wolf,lis: integer;
year:integer;
begin
 write('Введите кол-во волков ');
 read(wolf);
 write('Введите кол-во лис ');
 read(lis);
 year:=1;

 while ((wolf>0) and (lis>0)) do

  begin

    writeln('В ',year,' году волков ', wolf,' и лис ',lis);
    year:=year+1;
    wolf:=2*wolf-lis;
    lis:=wolf+2*lis;

    if(wolf<0) Then
      writeln('В ',year,' году полуляция волков закончилась');
    if(lis<0) then
      writeln('В ',year,' году полуляция лис закончилась');
  end;
Comments: