Var n,i,s : real;
Begin
s:=0;
i:=0;
Readln(n);
While i <> n do begin i:=i+1; s:=s+i
End;
Writeln('tong s la ',s);
End.
Bạn vào Pascal thử xem đúng chưa nhé!
Viết chương trình tính tổng sau ( trong đó là số tự nhiên được nhập từ bàn phím )
A = 1 + 1/2 + 1/3 ... 1/n (n e z)
viết chương vtrình nhập n từ bàn phím ( với n thuộc N*). Tính tổng các số lẻ liên tiếp đén n và in kết quả ra màn hình. 9Suwr dụng câu lệnh lặp For...do)
viết chương vtrình nhập n từ bàn phím ( với n thuộc N*). Tính tổng các số chẵn liên tiếp đến n và in kết quả ra màn hình. Sử dụng câu lệnh lặp For...do)
Viết chương trình Pascal:
Nhập một dãy số thực A có N phần tử. N là một số tự nhiên được nhập từ bàn phím (N bé hơn hoặc bằng 100). Chương trình sẽ đi tìm giá trị bé nhất của dãy số A và tìm tổng các phần tử có chỉ số là số chẳn. Các kết quả được in lên màn hình có 2 chữ số thập phân.
Giúp mình với ạ, sáng mai nộp bài rồi:((
Viết chương trình tính tổng vào tích của n số nguyên được nhập từ bàn phím
a) Số nguyên a được gọi là số hoàn thiện khi và chỉ khi tổng các ước dương của a (trừ ước a) bằng chính nó. Ví dụ 6 là số hoàn chỉnh vì 6 có các ước là 1,2,3 và tổng các ước là 1+2+3=6. Viết trương chình nhập vào số dương n từ bàn phím (0≤ n ≤ 1000). In lên màn hình tất cả các số hoàn chỉnh dương nhỏ hơn hoặc bằng n.
b)Trong toán học n! (đọc là giai thừa) dược định nghĩa như sau:
Qui ước: 0!=1
n!=1.2.3...n
Vd: 4!=1.2.3.4=24
Viết trương trình nhập từ bàn phím số nguyên n (0≤ n ≤ 20). Tính và in lên màn hình n!
Đề 1: Viết chương trình nhập dãy số n từ bàn phím. Sau đó, tìm và hiển thị số nhỏ nhất lên màn hình. Đề 2: Tự luận: Viết chương trình nhập dãy số n từ bàn phím. Sau đó, tìm và hiển thị số lớn nhất lên màn hình.
Viết chương trình nhập N số nguyên từ bàn phím tính tổng số lớn nhất và nhỏ nhất của dãy số
