Mọi người giúp em với!!! Mai thi rồi mà chưa biết một chữa bẻ đôi T.T

[littledevil0601]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình giải bài toán:
1 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
2 Viết chương trình tính tổng các số nguyên từ 1 đến n. Bài 15: Viết chương trình tính tổng các số nguyên từ m đến n.
3 Viết chương trình tính tổng các số nguyên lẻ từ 1 đến n: S = 1 + 3 + 5 + 7 + … + n
4 Viết chương trình tính tổng các số nguyên chẵn từ 1 đến n: S = 2 + 4 + 6 + 8 + … + n
5 Viết chương trình tính n!
6 Viết chương trình xuất ra màn hình tất cả ước số của một số nguyên
7 Viết chương trình xuất ra tam giác có n hàng như sau
*
* *
* * *
* * * *
* * * * *

8 Viết chương trình xuất ra tam giác có n hàng như sau
*
* * *
* * * * *
* * * * * * *
* * * * * * * * *

9 Viết chương trình cho người dùng nhập vào một năm. Sau đó tính dân số Việt Nam vào năm đó. Biết rằng dân số năm 2010 khoảng 86 triệu người và tỉ lệ tăng dân là 1.2%
10 Viết chương trình xuất ra màn hình bảng cửu chương.

​

 

[megamanxza]

Câu 1:
Program Gacho;
Ues crt;
var ga, cho: integer;
begin
clrscr;
for ga:=1 to 100 do
for cho:= 1 to 100 do
if (ga+cho=36) and (ga*2+cho*4=100) then Write ('So ga la ',ga,' va so cho la ',cho);
readln;
end.


Câu 2:
Program tinhtong;
Uses crt;
var n, i, tong: integer;
begin
clrscr;
write ('Nhap N: '); readln (n);
for i:= 1 to n do tong:=tong+i;
write ('Tong la ',tong);
readln;
end.


Câu 3 và câu 4 bạn cứ làm theo thuật toán sau: tìm từ 1 đến số n có bao nhiêu số chẵn (lẻ) rồi công dồn chúng vào biến tổng chẵn (lẻ). Còn câu 5 thì bạn cho một biến là tich rồi nhân dồn các số từ 1 đến n vào biến tich ấy. Lưu ý: phải gán biến tich:=1 đầu tiên. Câu 6 thì bạn tìm từ 2 đến số n/2 những số thỏa mãn n mod i=0 rồi viết chúng ra.

Câu 6:
Program Vietsao;
Uses crt;
var n, i: integer;
begin
clrscr;
write ('Hay nhap so hang: '); readln (n);
for i:= 1 to n do
begin
begin
write('*');
end;
writeln;
end;
readln;
end.

Câu 8 thì bạn cũng làm như trên, có điều số dấu "*" sẽ tăng lên 2 sau mỗi dòng.

Câu 9 thì dùng biến "nam" để nhập vào năm (nam>=2010) và biến "dan" để lưu kết quả bài toán (lúc đầu dan:=86). Sau đó cho vòng lặp i chạy từ 1 đến (nam-2010). Cứ qua mỗi vòng lặp thì dan:=dan+dan*1.2/100. Cuối cùng ta lấy dan nhân với 1000000 vì lúc nãy ta không khai báo hàng triệu.

Câu 10 thì đã có trong SGK lớp 8. Bạn cứ tham khảo là OK!

Tớ khuyên cậu một điều: khi gửi câu hỏi nên dùng nút "Gửi câu hỏi" để câu hỏi của mình sớm được phản hồi, chứ đừng nhấn nút "Tạo chủ đề mới" nha!
Chúc bạn học tốt! Nhấn nút thanks cho mình nha!

 

[modtinhoc]

câu viết sao làm sai rồi bạn
nếu làm thế sẽ được kết quả là
*
*
*
*
làm thế này mới đúng
program VCK47a1;
vả i,j,n:integer;
begin
write('nhap so dong');readln(n);
for i:=1 to n do
begin
for j:=1 to i do
write('*'); writeln;
end;
readln
end.