Dien Le

nhập 1 số nguyên in ra tổng nhỏ nhất của các số tự nhiên lớn hơn số vừa nhập

Ynasuya
16 tháng 3 2022 lúc 8:51

Program timtongcacuoc;

Uses crt;

Var  s:array[1..1000] of integer;

BEGIN

Readln(n);

k:=1;

For i:= 1 to n do 

begin

 for j:=2 to i – 1 do if i mod j = 0 then a[i]:=a[i]+j;

end;

 for j:=1 to n do

        begin

          if a[j] < a[j+1] then

          begin

              m:=j+1;

           end;


Các câu hỏi tương tự
Nguyễn minh Hoàng
Xem chi tiết
Nguyễn Thùy Linh
Xem chi tiết
My Na
Xem chi tiết
Nguyễn Ngọc
Xem chi tiết
Yen Ngoc
Xem chi tiết
Ha Cam
Xem chi tiết
Bùi Ngọc Khánh Huyền
Xem chi tiết
lêhữudanh123
Xem chi tiết
Tran Trang
Xem chi tiết