Cách giải bài toán con trau bằng pascal năm 2024
Show
Trăm trâu trăm cỏ Trâu đứng ăn năm Trâu nằm ăn ba Lụ khụ trâu già Mỗi con 1 bó. Tính số trâu mỗi loại. Còn đây là bài giải em cóp được rên mạng các bác xem hộ em đúng không? Program Tramtrautramco; uses crt; var td, tn, tg, songhiem, i: byte; begin clrscr; songhiem:=0; i:=1; for td:=1 to 98 do for tn:=1 to 98 do for tg:=1 to 98 do If((td+tn+tg)=100) and (5*td+3*tn+tg/3=100) then begin writeln('Nghiem thu: ', i); writeln('So trau dung: ', td:6); writeln('So trau nam: ', td:6); writeln('So trau gia: ', td:6); i:= i+1; songhiem:=songhiem+1; writeln; readln; end; writeln('Bai toan co: ', songhiem,' ket qua'); readln end. -
mới cách đây có 2 ngày tinh_yeu_lung_linh_vtvn -Program Trau; uses Crt; var dung,nam,gia,dem:byte; BEGIN clrscr; dem:=0; For dung:=0 to 100 do For nam:=0 to 100-dung do begin gia:=100-dung-nam; if dung*5+nam*3+gia/3=100 then begin dem:=dem+1; writeln('Nghiem thu ',dem,' :'); writeln('Trau dung :',dung); writeln('Trau nam :',nam); writeln('Trau gia :',gia); writeln end; end; if dem=0 then writeln('Bai toan vo nghiem'); readln END. -BookmarksBookmarksQuy định
Quy định DDTH.com B. Hoạt động luyện tập1. Bài thực hành 1 a, Hãy nhập chương trình để giải bài toán "Trăm trâu trăm cỏ" dưới đây. Trăm trâu trăm cỏ Trâu đứng ăn năm Trâu nằm ăn ba Lụ khụ trâu già Ba con một bó Tìm số trâu mỗi loại Chương trình: b, Hãy cho biết bài toán có mấy đáp số? Hãy so sánh kết quả tìm được với các bạn khác c, Lưu lại chương trình với tên tệp tramtrau.pas Với chương trình như trên thì bài toán có 6 đáp số. Viết chương trình nhập vào chiều, chiều rông hình chữ nhật và nhập vào cạnh của hình vuông. Thông báo ra màn hình diện tích hình nào lớn hơn.Viết chương trình nhập vào chiều, chiều rông hình chữ nhật và nhập vào cạnh của hình vuông. Thông báo ra màn hình diện tích hình nào lớn hơn. 30/11/2022 | 0 Trả lời
|