uses crt;
var i,tongchan,tongle,dem:longint;
begin
 clrscr;
  tongchan:=0;
  write('cac so chan tu 1 den 50 la:');
  for i:=1 to 50 do if(i mod 2=0)then
        begin
         write(i,' ');
         inc(tongchan,i);
        end;
  writeln;
  tongle:=0;
  write('cac so le tu 1 den 50 la:');
  for i:=1 to 50 do if(not(i mod 2=0))then
        begin
         write(i,' ');
         inc(tongle,i);
        end;
  writeln;
  writeln('tong cac so chan tu 1 den 50 la:',tongchan);
  writeln('tong cac so le tu 1 den 50 la:',tongle);
  dem:=0;
  for i:=1 to 50 do if(i mod 8=0)then inc(dem);
  write('co ',dem,' so chia het cho 8 tu 1 den 50');
 readln
end.

$\text{Chúc bạn học tốt. Cho mik 5*, cảm ơn + hn nhé.}$

Hien thi cac so chan tu 1 den 50

Code mẫu:

uses crt

var i:integer;

begin

clrscr;

for i:=1 to 50 do

if i mod 2=0 then write(i,' ');

readln;

end.

Hien thi cac so lẽ từ 1 đến 50

Code mẫu:

uses crt

var i:integer;

begin

clrscr;

for i:=1 to 50 do

if i mod 2<>0 then write(i,' ');

readln;

end.

Tổng các số chẵn từ 1 đến 50

Code mẫu:

uses crt;

var i,n:integer;

a:longint;

begin

clrscr;

a:=0;

for i:=1 to 50 do

if i mod 2=0 then a:=a+i;

writeln(a);

readln;

end.

Tổng các số lẻ từ 1 đến 50

Code mẫu:

uses crt;

var i,n:integer;

a:longint;

begin

clrscr;

a:=0;

for i:=1 to 50 do

if i mod 2<>0 then a:=a+i;

writeln(a);

readln;

end.

Đếm xem có bao nhiêu số chia hết cho 8 từ 1 đến 50

Ccode mẫu:

uses crt;

var i:integer;

begin

clrscr;

for i:=1 to 50 do

if i mod 8=0 then writeln(i,' ');

readln;

end.