Viết chương trình in ra màn hình các số nguyên từ 1 đến n

Củ Tỏi

Hằng Nguyễn

program B1;
uses crt;
var i,S,n:integer;
begin
clrscr;
write[‘nhap so n:’];
readln[n];
i:=i;
S:=0;
while i n la:’];        for i:=1 to n do        if i mod 2=0 then write[i,’ ‘];        writeln;        write[‘so le tu 1->n la:’];        for j:=1 to n do        if j mod 20 then write[j,’ ‘];        readln;

end.

bài 2:

uses crt;var     n,i,j,s,s1:longint;begin        clrscr;        write[‘Nhap n:’];        readln[n];        s1:=1;        s:=0;        write[‘tong cac so tu 1->n la:’];        for i:=1 to n do s:=s+i;        write[s];        writeln;        write[‘tich cac so tu 1->n la:’];        for j:=1 to n do s1:=s1*j;        write[s1];        readln;

end.

bài 3:

uses crt;var     n,i,j,s,s1:longint;begin        clrscr;        write[‘Nhap n:’];        readln[n];        s1:=0;        s:=0;        for i:=1 to n do        if i mod 20 then s:=s+i;        write[‘tong cac so le tu 1->n la:’,s];        writeln;        for j:=1 to n do        if j mod 20 then inc[s1];        write[‘co tat ca ‘,s1,’ so le’];        readln;

end.

bài 4:

uses crt;var     n,i,j,s,s1:longint;begin        clrscr;        write[‘Nhap n:’];        readln[n];        s1:=0;        s:=1;        for i:=1 to n do        if i mod 2=0 then s:=s*i;        write[‘tich cac so chan tu 1->n la:’,s];        writeln;        for j:=1 to n do        if j mod 2=0 then inc[s1];        write[‘co tat ca ‘,s1,’ so chan’];        readln;

end.

1/

Program BTH;uses crt;var i:byte;Begin        clrscr;        For i:=1 to 20 do                writeln[i];        readln;

end.

2/

Program BTH;uses crt;var i:byte;Begin        clrscr;        For i:=20 downto 10 do                writeln[i];        readln;

end.

3/

Program BTH;uses crt;var n,i,s,k:longint;Begin        clrscr;        write['Nhap n: '];readln[n];        For i:=1 to n do        Begin                write['Nhap so thu ',i,' : '];readln[k];                s:=s+k;        end;        writeln['Tong day so tren la: ',s];        readln;

end.

4/

Program BTH;uses crt;var n,i:longint;Begin        clrscr;        write['Nhap n: '];readln[n];        writeln['Uoc cua ',n,' la: '];        For i:=1 to n do        Begin                If n mod i=0 then write[i,' '];        end;        readln;

end.

Program BTH;uses crt;var i:byte;Begin        clrscr;        For i:=1 to 10 do                writeln[i];        readln;

end.