uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
i:=0;
repeat
i:=i+1;
s:=s+i;
until s>1000;
writeln(s);
if (s>1500) then writeln('co')
else writeln('khong');
readln;
end.
viết chương trình tìm số tự nhiên n sao cho tổng các số tự nhiên liên tiếp từ 1 đến n là tổng lớn nhất nhỏ hơn 500
viết phương trình nhập một số nguyên :
kiểm tra số đó là số nguyên dương hay nguyên âm?kiểm tra số đó chia hết cho 3 hay không? kiểm tra sô đó lớn hơn hay nhỏ hơn 7? sơ đồ khối của 1 dạng câu lệnh điều kiện? cho VD?
Câu 1: Sử dụng vòng lặp for ... do, viết chương trình tính tổng của 10 số tự nhiên đầu tiên ?Câu 2: Viết chương trình tìm xem có bao nhiêu số dương trong N số nhập vào từ bàn phímCâu 3: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan sát
cần gấp mọi người viết chương trình pascal cho em mấy bài này, chiều em làm bài rồi@@
1)Tìm n nhỏ nhát để Sn nhỏ nhất lớn hơn 1000, biết Sn=1+2+...+n
2) IN ra các số chẵn từ 1 đến 100
3)in ra các sô chãn từ 1 đến n
4) in ra các số lẻ từ 1 đến 100
5) tính tổng, tích của n số tự nhiên đầu tiên
Em học pascal lớp 8 nha mọi người
Biết rằng : Mọi số tự nhiên chẵn lớn hơn 2 đều viết được dưới dạng tổng của 2 số nguyên tố . Hãy viết chương trình nhập vào một số chẵn N lớn hơn 2, hãy tìm cặp số nguyên tố có tổng bằng N nếu có nhiều cặp như vậy thì hãy tìm cặp có chứa số nguyên tố nhỏ nhất ( Code pascal)
Một giáo viên vào lớp và phát kẹo cho các em học sinh theo qui tắc sau : em đầu tiên được nhận 1 viên kẹo, em tiếp theo nhận số kẹo nhiều hơn em trước đó 2 viên. Hỏi nếu lớp học có 40 học sinh thì tổng số kẹo phải có để giáo viên phát đủ cho cả lớp là bao nhiêu?
Với bài toán: Viết chương trình pascal cho phép nhập điểm kiểm tra 1 môn học của em từ bàn phím, Sau đó kiểm tra và thực hiện
+Nếu điểm nhỏ hơn 5 in ra dong chữ"Điểm yếu bạn cần cố gắng hơn"
+Nếu điểm lớn hơn hoặc bằng 5 và nhỏ hơn 6,5 in ra dòng chữ"Bạn đạt điểm trung bình"
+Nếu điểm lớn hơn hoặc bằng 6,5 và nhỏ hơn 8 in ra dòng chữ"Bạn đạt điểm khá"
+Nếu điểm lớn hơn oặc bằng 8 in ra dong chữ "Bạn đạt điểm giỏi"
Tính tổng của S= 1+2+3+..+n sao cho tổng S nhỏ nhất lớn hơn 500
giải tin 8 hộ mình với =)))) huhu giúp minh` với !
Câu 1 : Nhập vào một chuỗi kí tự và kiểm tra xem chuỗi có bao nhieu nguyên âm và bao nhiêu số ?
Câu 2 : Nhập số n bất kì. Đếm các số lớn hơn 10 và nhỏ hơn 20 rồi tính tổng của chúng. Sau đó đưa ra màn hình '' So cac so > 10 ra < 20 la : " và " Tong cua chung la ".
Câu 3 : Nhập vào ngày tháng năm từ bàn phím rồi sau đó viết ra màn hình là ngày thứ mấy trong tuần ?
