uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n-1 do
if n mod i=0 then t:=t+i;
if t=n then writeln(n,' la so hoan chinh')
else writeln(n,' khong la so hoan chinh');
readln;
end.
(Viết chương trình Pascal sử dụng câu lệnh while...do)
1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.
2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.
viết chương trình nhập vào một số nguyên n a. Tìm ước của n b. Kiểm tra xem n có phải số nguyên tố không
"Sử dụng câu lệnh While .. do viết chương trình: Nhập vào một số nguyên dương và kiểm tra xem số đó có phải là số nguyên tố không?" Giúp mình nhanh nhanh với ạ, tuần sau thi rồi:(
Viết Chương Trình Pascal Cho Nhập N Nguyên , Dương Từ Bàn Phím . In ra màn hình : -Các Ước Của N Không Kể N -Xác Định N Có Phải Là Số Hoàn Hảo -Tất Cả Số Hoàn Hảo Trong Phạm Vi Từ 1-> N
Chuỗi ký tự được gọi là biểu thức nếu chuỗi này thực sự là một biểu thức toán học.
Hãy viết chương trình kiểm tra chuỗi kí tự S được nhập vào từ bàn phím có phải là biểu thức hay không. Nếu đúng thì in ra màn hình: “chuỗi S là biểu thức toán học”, nếu không đúng thì in ra màn hình: “chuỗi S không hợp lệ hoặc không phải là biểu thức toán học”.
Giới hạn: ta chỉ xét những biểu thức chứa các toán hạng là các số nguyên dương và toán tử nhân “*”. Các toán hạng và toán tử khác đều xem là không hợp lệ.
Ví dụ: 1*2*3 là xâu biểu thức
1-2*3 hoặc 1:2+3 đều không phải là biểu thức.
Viết chương trình nhập vào dãy số tự nhiên. Đếm và in ra màn hình số phần tử chẵn, tính tổng số phần tử chẵn trong n số vừa nhập. (Lưu ý không dùng mảng)
Mọi người ơi, giúp em với ạ
