Hãy viết chương trình 1 tìm tất cả các ước số của một số nguyên dương cho trước 2 tính S=a1+a2+-+an với a1,a2,-an là một dãy số nguyên cho trước

0 bình luận về “Hãy viết chương trình 1 tìm tất cả các ước số của một số nguyên dương cho trước 2 tính S=a1+a2+-+an với a1,a2,-an là một dãy số nguyên cho trước”

1. Progam tin_hoc;

   uses crt;

   var n, i: integer;

   Begin

   clrcr;

   Write (‘Nhap so n’); readln(n);

   For i:=1 to n do if n mod i = 0 then write(i:3,’,’);

   readln

   end.

   Chúc bạn học tốt ^^

   Bình luận

2. 1. 

   program Tin_hoc;

   uses crt;

   var i,n:integer;

   begin

   clrscr;

   writeln(‘Nhap so nguyen: ‘);readln(n);

   writeln(‘Tat ca cac uoc cua ‘,n,’ la:);

   for i:= 1 to n do if n mod i = 0 then write(i,’  ‘);

   readln;

   end.

   2.

   program Tin_hoc;

   uses crt;

   var i,n,S:integer;

         a:array [1..100000] of integer;

   begin

    clrscr;

    write(‘Nhap n:’);readln(n);

    writeln(‘Nhap ‘,n,’ so:’);

    S:=0;

    for i:= 1 to n do 

      begin

      readln(a[i]);

      S:=S+a[i]

      end;

   writeln(‘S=’,S);

   readln;

   end.

   3.

   program Tin_hoc;

   uses crt;

   var i,n,min,max:integer;

         a:array [1..100000] of integer;

   begin

   clrscr;

   write(‘Nhap do dai cua day: ‘);readln(n);

   writeln(‘Nhap ‘,n,’ phan tu cua mang: ‘);

   for i:= 1 to n do readln(a[i]);

   min:=a[1]; max:=a[i];

   for i:= 1 to n do

   begin

   if a[i] > max then max:=a[i];

   if a[i] < min then min:=a[i]

   end;

   writeln(‘max=’,a[i]);

   writeln(‘min=’,a[i]);

   readln;

   end.

   Nhớ cho mik câu tlhn nha 

   Bình luận