Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var i,n:integer;
begin
clrscr;
write('nhap so n:);realn(n);
for i:=1 to n-1 do
max:=1
if n mod i=0 then
begin
if i >max
write(i);
end;
readln;
end.
LƯU Ý
Các bạn học sinh KHÔNG ĐƯỢC đăng các câu hỏi không liên quan đến Toán, hoặc các bài toán linh tinh gây nhiễu diễn đàn. Online Math có thể áp dụng các biện pháp như trừ điểm, thậm chí khóa vĩnh viễn tài khoản của bạn nếu vi phạm nội quy nhiều lần.
Chuyên mục Giúp tôi giải toán dành cho những bạn gặp bài toán khó hoặc có bài toán hay muốn chia sẻ. Bởi vậy các bạn học sinh chú ý không nên gửi bài linh tinh, không được có các hành vi nhằm gian lận điểm hỏi đáp như tạo câu hỏi và tự trả lời rồi chọn đúng.
Mỗi thành viên được gửi tối đa 5 câu hỏi trong 1 ngày
Các câu hỏi không liên quan đến toán lớp 1 - 9 các bạn có thể gửi lên trang web h.vn để được giải đáp tốt hơn.
Uses crt;
Var
S,i,n:Integer;
a:array[1..100] of integer;
BEGIN
Write( ‘ Nhap so n:’ );
Readln( n );
For i:=1 to n do
begin
a[i]:=i;
s:=s+a[i]
end;
Writeln( ‘Tong = ’, S);
Readln;
END.