câu 20:
C1:
program mang;
uses crt;
var n,m,i,j,d:integer;
begin
clrscr;
write('Nhap m: '); readln(m);
write('Nhap n: '); readln(n);
d:=0;
for i:=1 to m do
begin
for j:=1 to n do
begin
inc(d);
write(d:4);
end;
writeln;
end;
readln
end.
C2:
program mang;
uses crt;
var A:array[1..10000,1..10000] of longint;
n,m,i,j:integer;
d:longint;
begin
write('Nhap m: '); readln(m);
write('Nhap n: '); readln(n);
d:=0;
for i:=1 to m do
for j:=1 to n do
begin
inc(d);
A[i,j]:=d;
end;
for i:=1 to m do
begin
for j:=1 to n do
write(A[i,j]:4);
writeln;
end;
readln
end.
Câu 21
program sochuso;
uses crt;
var n:int64;
d:byte;
begin
clrscr;
write('Nhap n: '); readln(n);
d:=0;
while n>0 do
begin
inc(d);
n:=n div 10;
end;
write('So chu so la: ',d);
readln
end.
Câu 22
program sochuso;
uses crt;
var n:int64;
d:byte;
begin
clrscr;
write('Nhap n: '); readln(n);
d:=0;
while n>0 do
begin
if (n mod 10) mod 2=0 then inc(d);
n:=n div 10;
end;
write('So chu so chan la: ',d);
readln
end.
