Uses crt;
Var
a:array[1..9,1..9] of Integer ;
i,j:byte ;
BEGIN
Clrscr ;
For i := 1 to 9 do
For j := 1 to 9 do
A[i,j] := i*j ;
For i := 1 to 9 do
Begin
For j := 1 to 9 do Write(a[i,j]:5);
Writeln ;
Writeln ;
End ;
Readln ;
END.

toi co nick 1trieu 2 dam 5k mau 150k mua ko

Tác dung;Chỉ một lệnh thay cho nhiều lệnh

1...

program baio1;

var a:array[1..100] of real;

n,i:longint;

begin

repeat

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

until n>0;

for i:=1 to n do

begin

write('a[,i,']= ');

readln(a[i]);

END;

max:=a[1];min:=a[1];

for i:=1 to n do

if a[i]>max then max:=a[i]

else min:=a[i];

write('...');

readln

end.

SSH của B : ( 3997 - 1 ) : 2 +1 = 1999

=> B = ( 3997 + 1 ) .1999 : 2 = 3996001

Vậy B = 3996001

program bai1;

var s,i:longint;

begin

s:=0;

for i;=1 to 100 do s:=s+i;

write('s= ',s);

readln

end.

program bai1;

var n,s,i,x:longint;

begin

write('N= ');

readln(n);

i:=1;s:=0;

while i<=n do

begin

write('x',i,'= ');

readln(x);

if x>0 then s:=s+x;

i:=i+1;

end;

write('S= ',s);

readln

end.

thì ra tuấn tài và Khắc Vinh chép mạng thế mà olm cho nhất và nhì

program bai1;

var n,s,i,x:longint;

begin

write('N= ');

readln(n);

i:=1;s:=0;

while i<=n do

begin

write('x',i,'= ');

readln(x);

if x<0 then s:=s+x;

i:=i+1;

end;

write('S= ',s);

readln

end.

program bai2;

var s,i,n:longint;

begin

write('N= ');

readln(n);

s:=0;

for i:=1 to n do

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

write('s= ',s);

readln

end.