Thông báo

Chào thầy(cô) và các em học sinh trên mọi miền đất nước!

Sau một thời gian dài, trường THPT Bắc Bình sử dụng trang web: http://violet.vn/thpt-bacbinh-binhthuan/ - được thừa kế từ thư viện trực tuyến violet.vn - làm nơi giao lưu gặp gỡ - sẻ chia tài nguyên dạy và học.

Thì nay, trường THPT Bắc Bình đã xây dựng cho mình một website riêng, hoàn toàn độc lập để phục vụ cho việc dạy và học. Rất mong thầy(cô) và các em học sinh trên mọi miền đất nước ghé thăm.

Địa chỉ:

http://thptbacbinh.edu.vn

Qua đây, cũng xin chân thành cám ơn thư viện trực tuyến violet.vn đã tạo mọi điều kiện tốt nhất cho trang web http://violet.vn/thpt-bacbinh-binhthuan/ hoạt động tốt trong thời gian qua.

Chúc violet.vn luôn vững mạnh và phát triển - Chúc sức khỏe thầy(cô) và các em học sinh trên mọi miền đất nước.

BQT Web trường THPT Bắc Bình.

Gốc > DIỄN ĐÀN HỌC TẬP DÀNH CHO HỌC SINH > Lập trình Pascal >

Giải bài toán 100 Trâu - 100 Cỏ

   { DAY LA CT GIAI BAI TOAN 100 TRAU_100 CO }
Program Tramtrau_Tramco;

uses crt;


var i,j,k:integer;


BEGIN


clrscr;


writeln('DAY LA CT GIAI BAI TOAN CO " 100 TRAU-100 CO " ');


writeln('      HAY AN ENTER DE BIET KET QUA '); readln;


for i:=1 to 25 do


for j:=1 to 35 do


for k:=1 to 300 do


if (5*i+3*j+k/3=100)and(i+j+k=100)then


begin


writeln('TRAU DUNG : ',i);


writeln('TRAU NAM  : ',j);


writeln('TRAU GIA  : ',k);


writeln;


end;


readln;


end.


Nhắn tin cho tác giả
Đàng Lâm Anh Kiệt @ 00:36 29/11/2009
Số lượt xem: 381
Số lượt thích: 0 người
 
Gửi ý kiến