1. VCT Đếm xem có bao nhiêu số chẳn từ 1 đến 100. In Đếm.

2. VCT nhập vào 1 số n. Tính tích các số chia hết cho n từ 1 đến 10. In Tích.

3. VCT nhập vào 1 số n. In ra màn hình các số chia hết cho 3 và 2 từ 1 đến n.

4. Em hãy viết chương trình tính tổng các số nguyên liên tiếp từ n đến m với n,m là các số nguyên dương nhập vào từ bàn phím

5 . VCT tính tổng các số lẻ và tổng các số chẳn từ 1 đến n, với n nhập từ bàn phím. In tổng lẻ và tổng chẳn.

6. VCT in ra màn hình các ký tự từ ’A’ đến ’Z’ và từ ’z’ đến ’a’.

1. print(*list([i for i in range(1,101) if i%2==0]))

2.

uses crt;

var i, S, n : integer;

begin

clrscr;

write('nhap so n : '); readln(n);

S := 1;

for i := 1 to 10 do

if i mod n = 0 then S := S * i;

write('tich cac so chia het cho n tu 1 - 10 = ', S);

readln

end.

3. uses crt;
var n,i:integer;
begin
 clrscr;
  write('nhap n:');readln(n);
  for i:=1 to n do if(i mod 2=0)and(i mod 3=0)then write(i:5);
 readln
end.

4.

uses crt;

var m,n,i,s: longint;

begin

crlscr;

write (‘nhap n: ‘);  readln (n);

write (‘nhap m: ‘);  readln (m);

for i:=n to m do s:=s+i;

writeln (‘tong cac so tu ‘,n,’ den ‘,m,’ la: ‘,s);

readln;

end.

5.

program Tn;
uses crt;
var n,i:integer;
    Sc,sl:integer;
begin
    clrscr;
    write('n = ');readln(n);
    for i:=1 to n do
    if i mod 2=0 then sc:=sc+i
    else sl:=sl+i;
    writeln('tong chan = ',sc);
    write('tong le = ',sl);
    readln;
end.

6.

program inchucai;

uses crt;

var i:char;

begin

     clrscr;

     textcolor(red);  {Tô đỏ các từ in ở phía sau câu lệnh}

     writeln(‘Cac ki tu trong bang chu cai tien anh la: ‘);

     textcolor(yellow);  {Tô vàng các từ in ở phía sau câu lệnh}

     for i:=’A’ to ‘Z’ do write(i,’ ‘);

     readln;

end.

cho mik xin hay nhất ko coppy ko mạng