a) Viết chương trình in ra các số chẵn trong đoạn từ 20 đến 30

program Tin_hoc;

uses crt;

var i,tong:integer;

begin

clrscr;

tong:=0;

for i:= 1 to 30 do i mod 20 = 0 then tong:=tong + i;

writeln('Tong cac so chan tu 1 den 30 la: ',tong);

readln;

end.

b)Tính tổng các số chẵn đó.

Program (...); {Tên chương trình tùy thích}
Uses crt;
Var i: integer;
      S: longint;
Begin
     Clrscr;
     S:=0;
     For i:=20 to 30 do S:=S+i;
     Writeln('Tong cac so tu 20 den 30 la ',S); 
     Readln
End

c) Đếm xem có bao nhiêu số chẵn trong đoạn từ 20 đến 30

program an_danh;
uses crt;
var n,i:integer;
begin
clrscr;
n:= 0;
for i:= 20 to 30 do
if i mod 2 = 0 then n:= n + 1;
write('Cac so chan pham vi tu 20 den 30 la: ',n);
readln
end.

print('Các số chẵn từ 20 - 30 : ', end = ' ')

s = 0

d = 0

for i in range(20, 31) :

    if i % 2 == 0 :

        print(i, end = ' ')

        s += i

        d += 1

print(' ')

print('Tổng các số chẵn : ', s)

print('Có ', d ,' số chẵn đoạn 20 - 30')