Program mun;

Uses crt;

Var i:integer;

Begin

For i:=1 to 10 do write ('2 × ', i,' = ', 2*i);

Readln;

End.

P/s: Ko chắc ạ!

uses crt;

var i:integer;

begin

clrscr;

for i:=1 to 10 do

writeln('2*',i,'=',2*i);

readln;

end.

uses crt;

var i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

writeln('Bang cuu chuong ',n,' la: ');

for i:=1 to 10 do 

  writeln(n,'*',i,'=',n*i);

readln;

end.

program TinhTong;

var

     i, S: integer;

begin

     S := 0;

     for i := 1 to 10 do

          S := S + i;

     writeln('Tong cac so tu 1 den 10 la: ', S);

     readln;

end.

Bài 1:

Program hotrotinhoc_hoc24;

var i,n: integer;

begin

write('Nhap n='); readln(n);

i:=0;

while i<10 do

begin

i:=i+1;

writeln(n,'*',i,'=',n*i);

end;

readln

end.

Bài 2:

Program hotrotinhoc_hoc24;

var i,n,d,d1: integer;

begin

write('Nhap n='); readln(n);

i:=0;

while i<n do

begin

i:=i+1;

if i mod 2=1 then d:=d+1;

if i mod 2=0 then d1:=d1+1;

end;

writeln('Co ',d1,' so chan tu 1 den ',n);

write('Co ',d,' so le tu 1 den ',n);

readln

end.

ê mi phải lớp 7a2 khống

ừ ừ có j ák

t có nhìu nik lắm !!!!!!!

program bang_cuu_chuong;

uses crt;

var n,tich,i:integer;

begin

clrscr;

n:=2;i:=1;

while n<=9 do

begin

while i<=10 do

begin

tich:=n*i;

writeln(n,' x ',i,' = ',tich);

i:=i+1;

end;

n:=n+1;i:=1;

end;

readln;

end.