uses crt;
const fi='dulieu.txt'
var f1:text;
a,b,c,d:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b,c,d);
writeln(a*b*c*d);
close(f1);
readln;
end.
Cho 2 tệp in.txt và out.txt:
1. Trên tệp in.txt lưu giá trị n, tính n! sau đó ghi lại kết quả vào tệp out.txt
2. Trên tệp in.txt ghi tên 4 học sinh trên 4 dòng, đọc và ghi lại tên của các học sinh đó trên tệp out.txt
Viết chương trình nhập từ bàn phím số nguyên dương N
Đưa ra màn hình số lượng các số lẻ chia hết cho 5 trong phạm vi từ 1 đến N (ghi một cách rõ ràng nha )
Cho xâu S bất kì chứa các kí số và chữ cái tiếng Anh. Viết chương trình:
a. Đưa ra màn hình tất cả các chữ cái có trong S.
b. Đưa ra màn hình dãy số con tăng liên tiếp dài nhất có trong xâu S.
Ví dụ: S='ab3v5e72f4a7g91b2: có 3 dãy con tăng là (3,5,7); (2,4,7,9);(1,2). Dãy con tăng dài nhất là (2,4,7,9).
Mọi người giúp em với em cần gấp .Em cảm ơn ạ!
Viết chương trình đọc từ bàn phím một loạt số nguyên cho đến khi nhập số 0.Hãy tính và in ra trung bình cộng của số chia hết cho 3 và 2(lấy 2 chữ số thập phân).
Nhập xâu S vào từ bàn phím rồi tính tổng các số trong xâu S và đưa kết quả ra màn hình.
Lưu ý : "Số" khác với "chữ số".
Ví dụ : Nếu nhập xâu 'awjir1ui125j62kj61ji52' thì tổng sẽ là
T = 1+125 + 62 + 61 + 52 = 301
#Nhập vào danh sách nhiệt độ cao nhất, thấp nhất trong 7 ngày. Đưa ra màn hình nhiệt độ trung bình của cả tuần đếm số ngày có nhiệt độ thấp hơn 10 độ.
- Xác định bài toán
-Nêu ý tưởng
- viết phương trình
Nhập vào 1 mảng có N số nguyên ( N< 1000 )
1) Tính tổng các số chia hết cho 3 trong mảng vừa nhập
2) Tìm giá trị nhỏ nhất trong mảng , đưa ra vị trí đó . Nếu có nhiều vị trí chứa giá trị nhỏ nhất thì đưa ra vị trí lớn nhất trong các vị trí đó .
