D

D

C

D

C

Ai giỏi TIN HỌC thì giúp mk vớiiii

Help meeeeeee

A

Program HOC24;

var i,j,n,d: integer;

begin

write('Nhap N: '); readln(n);

d:=0;

for i:=1 to n do

for j:=1 to i do if i mod j=0 then d:=d+1;

write('Ket qua : ',d);

readln

end.

Bài 2:

program bt;
uses crt;
var i, n, s : integer;
a : array[1..100] of integer;
begin
        clrscr;
        write('Nhap so so nguyen: '); readln(n);
        for i:=1 to n do begin
         write('Nhap so thu ',i,': '); readln(a[i]);
        end;
        s := 0;
        write('Day so vua nhap la: ');
        for i:=1 to n do begin
         write(a[i],', ');
         s := s + a[i];
        end;
        writeln;
        writeln('Tong cac so trong day so la ',s);
        writeln('Trung binh cong cac so trong day so la ',s/n:0:2);
        readln
end.

Bài 3:

program bt;
uses crt;
var i, n, s, d : integer;
a : array[1..100] of integer;
begin
        clrscr;
        write('Nhap so so nguyen: '); readln(n);
        for i:=1 to n do begin
         write('Nhap so thu ',i,': '); readln(a[i]);
        end;
        s := 0; d := 0;
        for i:=1 to n do if (a[i] > 10) and (a[i] < 20) then begin
         d := d + 1;
         s := s + a[i];
        end;
        writeln('Co ',d,' so nho hon 10 va lon hon 20');
        write('Tong cac so lon hon 10 va be hon 20 la ',s);
        readln
end.

Tham khảo:

Đồ thị trên Excel thường được sử dụng trong những trường hợp người dùng cần so sánh các dữ liệu trong bảng, theo cách trực quan và dễ nhìn nhất. Thay vì trình bày bằng văn bản, liệt kê những con số, chúng ta có thể thông qua đồ thị để biểu đạt những số liệu đó.

uses crt;

var s,n:integer;

begin

clrscr;

s:=20;

n:=1;

while s>=5 do 

begin

n:=n+1;

s:=s-n;

end;

writeln(s);

readln;

end.

uses crt;

var i,dem:integer;

begin

clrscr;

dem:=0;

for i:=1 to 50 do 

if i mod 3=0 then 

begin

write(i:4);

inc(dem);

end;

writeln;

writeln(dem);

readln;

end.

.___.

ko tl đừng bl