Việc cho vật nuôi ăn thừa ,thiếu sẽ ảnh hưởng như thế nào tới vật nuôi ,người chăn nuôi ,môi trường chăn nuôi
(Ở đây trường hợp thừa thức ăn ,các bạn giúp mình nêu ra 2 trường hợp ăn ko hết và ăn hết )

Program bai1;

uses crt;

var n: integer;

begin

clrscr;

write(' nhap n ='); readln(n);

while n>5 do

begin

writeln('nhap lai n=');

readln(n);

end;

end.

12 số 

tick đúng mình nhaaaaaaaaaaa

Program bai1;

uses crt;

var dem,n,i: integer;

begin

clrscr;

write('nhap n ='); readln(n);

dem:=0;

for i:= 1 to n do

if i mod 2 = 1 then

begin

write(i:3,',');

dem:= dem+1 ;

if dem mod 15 = 0 then writeln;

end;

readln;

end.

2.

program bai2;

uses crt;

var i,n: integer;

begin

clrscr;

write('nhap so n ='); readln(n);

for i: 1 to n do

if i mod 2 = 0 then

write(i: 3 ,',');

readln;

end.

1.

Program bai1;

uses crt;

var n,i: integer;

begin

clrscr;

write('nhap so n ='); readln(n);

for i := 1 to n do

if n mod i = 0 then

write(i :2 , ' , ');

readln;

end.

program bai1;

uses crt;

var n,i: integer;

a: array[1..100] of integer;

begin

clrscr;

write('nhap so n ='); readln(n);

for i:= 1 to n do

begin

write('nhap a[',i,'] ='); readln(a[i]);

end;

for i:= n downto 1 do write(a[i] , ' ');

readln;

end.

1.

Program bai1;

uses crt;

var i,n: integer;

function kt(n: integer): boolean;

var i: integer;

begin

kt:=true;

for i:= 2 to n-1 do if (n mod i ) = 0 then

kt:=false;

end;

begin

clrscr;

write(' nhap n = '); readln(n);

for i:= 2 to n do

if kt(i) then write(i:3 , ' ');

readln;

end.

2.

Program bai2;

uses crt;
var i,n,f1,f2: integer;
begin

clrscr;
write('Nhap n: '); readln(n);

f1:=0;

f2:=1;

for i:=1 to n do

begin

write(f1,' ');

f2:=f2+f1;

f1:=f2-f1;

end;

readln;

end.