Program hotrotinhoc;
var t: longint;
n: integer;
begin
n:=0; t:=1;
while t<=200 do
begin
n:=n+1;
t:=t*n;
end;
write('So tu nhien n nho nhat de t>200 la : ',n);
readln
end.
Program hotrotinhoc;
var t: longint;
n: integer;
begin
n:=0; t:=1;
while t<=200 do
begin
n:=n+1;
t:=t*n;
end;
write('So tu nhien n nho nhat de t>200 la : ',n);
readln
end.
Câu 1: viết chương trình nhập vào N số tự nhiên đầu tiên,đếm xem có bao nhiêu số là số chẵn Câu 2: Viết chương trình nhập vào N số tự nhiên tính tổng các số chia hết cho 3 Em cần gấp lắm ạ:(
viết chương trình tính tổng n số lẻ đầu tiên với n được nhập bằng bàn phím. Gợi ý for i:=1 t on do s:=s+(2i-1)
Viết chương trình tính tổng 200 số tự nhiên đầu tiên.
@Mk đang cần gấp cho t.2 lm bài kt mong mn giúp giùm ạ ♥
1.Viết chương trình tính tổng tất cả các số lẻ nhỏ hơn hoặc bằng n với n nhập từ bàn phím
2.Viết chương trình tính tổng tất cả các số chẵn nhỏ hơn hoặc bằng n với n nhập từ bàn phím
3.Viết chương trình tính tổng tất cả các ước của n với n nhập từ bàn phím
Hãy tìm hiểu đoạn chương trình sau và cho biết với đoạn lệnh đó chương trình thực hiện bao nhiêu vòng lệnh lặp sau khi kết thúc t bằng bao nhiêu T:=0 N:=S writeln t
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.
Cho bàu toán sau: viết chương trình tính tổng T=1+2+...+120 hãy sử dụng vòng lặp while do viết chương trình tính tổng bằng T (Giúp t vs mn ơi t cần gấp
1 Viết chương trình tính n!=1.2.3.4....n vs n là số nguyên được nhập vào từ bàn phím.
2 Viết chương trình tính t=1+2+3+4+....+n vs n là số nguyên được nhập vào từ bàn phím.
Viết chương trình tính tổng các số tự nhiên từ 10 đến N. Với số N là số tự nhiên bất kì do người sử dụng nhập va N > 15. * Lưu ý: Sử dụng câu lệnh lặp While...do*