uses crt;
var i,j,k:integer;
begin
clrscr;
for i:=1 to 20 do
for j:=1 to 33 do
begin
k:=100-i-j;
if 5*i+3*j+k/3=100 then writeln('Trau dung ',i,' Trau nam ',j,' va Trau gia ',k);
end;
readln;
end.
Bài 1: Viết chương trình tính tổng các số chẵn từ 10 đến 50?
Bài 2: Viết chương trình giải bài toán sau: Tính tổng A ( n là số tự nhiên được nhập từ bàn phím)
A= 1.3 + 2.4 + 3.5 +...+ n(n+2).
Giúp mình với nhanh nhanh nha.
Viết chương trình giải bài toán dân gian sau:
Vừa gà vừa chó
bó lại cho tròn
ba mươi sáu con
một trăm chân chẵn
hỏi có bao nhiêu con gà, bao nhiêu con chó?
sử dụng câu lệnh lặp đẻ giải bài toán:
Vừa gà vừa chó
Bó lại cho tròn
Ba mươi sáu con
Một trăm chân chẵn
Câu 1:Nhập 4 số nguyên a, b, c, d từ bàn phím, in ra số nhỏ nhất.
Câu 2: Viết chương trình xét xem một tam giác có là tam giác đều hay không khi biết ba
cạnh của tam giác.
Câu 3: Viết chương trình cho biết chữ số hàng trăm, hàng chục, hàng đơn vị của một số
có ba chữ số. Ví dụ khi nhập số 357 thì máy in ra:
– Chữ số hàng trăm: 3.
– Chữ số hàng chục: 5.
– Chữ số hàng đơn vị: 7.
Câu 4: Viết chương trình cho phép tính trung bình nhân của bốn số với điều kiện chỉ
được sử dụng hai biến.
Câu 5:Viết chương trình cho phép tính trung bình cộng của bốn số với điều kiện chỉ được sử
dụng hai biến.
MONG NHẬN ĐƯỢC SỰ GIÚP ĐỠ TỪ CÁC BẠN
Sử dụng câu lện lặp đẻ giải bài toán
Vừa gà vừa chó
Bó lại cho tròn
Ba mươi sáu con
Một trăm chân chẵn.
Viết chương trình Pascal để nhập vào một số tự nhiên n. In lên màn hình tổng các số chẵn từ 1 đến n. Mn giúp mình với!
Viết chương trình rút gọn phân số a/b (a, b nhập từ bàn phím).
Dùng for...do nha, mn giúp mình với!!!
Mai mình thi rồi!!!
Viết chương trình nhập vào dãy n số nguyên dương tìm và in ra màn hình số lớn nhất trong các số vừa nhập( dùng lệnh while do) giúp mình với ạ
Viết chương trình tính tích n số tự nhiên đầu tiên khác 0 ( n được nhập từ bàn phím). Mọi người giải nhanh câu này giúo mình với , chú ý n khác 0 nhé
