Viết chương trình pascal để tìm lời giải cho bài toán sau: Trăm trâu trăm bó cỏ Bó lại cho tròn Trâu dứng ăn năm Trâu nằm ăn ba Năm trâu nghé ăn một H

0 bình luận về “Viết chương trình pascal để tìm lời giải cho bài toán sau: Trăm trâu trăm bó cỏ Bó lại cho tròn Trâu dứng ăn năm Trâu nằm ăn ba Năm trâu nghé ăn một H”

1. uses crt;
   var dung, nam , gia : integer;
   begin clrscr;
    for dung := 1 to 100 do
    for nam := 1 to 100 do
    for gia :=1 to 100 do
    begin
    if (nam + dung+gia = 100) and (5*dung+3*nam+gia/3 = 100) then
    writeln(‘ So trau dung :’,dung:3, ‘ so trau nam la :’, nam:3, ‘so trau gia la :’,gia:3);
    end;
    readln
    end.

   Bình luận

2. Program Hotboy ;

   Uses crt;

   Var x,y,z:byte;

   Begin

   Clrscr;

    For x:=0 to 100

    For y:=0 to 100 do

    For z:=0 to 100 do 

    If (x+y+z=100) and (x*5+y*3+z/5=100) then

   Begin

    Writeln(‘Trau dung la’,x);

    Writeln(‘Trau nam la’,y);

    Writeln(‘Trau nghe: ‘,z);

    End;                                       

    Readln

   End.                         

           

   Bình luận