1+1=2 2+1=3 ... 9+1=10
1+2=3 2+2=4 ... 9+2=11
... ... ... ...
1+9=10 2+9=11 ...9+9=18
Uses
CRT;
var
i,j:integer;
begin
ClrScr;
for i:=1 to 9 do
begin
for j:=1 to 9 do
begin
write(' ',j,'+',i,':=',i+j:2);
end;
writeln;
end;
readkey
end.
1+1=2 2+1=3 ... 9+1=10
1+2=3 2+2=4 ... 9+2=11
... ... ... ...
1+9=10 2+9=11 ...9+9=18
Uses
CRT;
var
i,j:integer;
begin
ClrScr;
for i:=1 to 9 do
begin
for j:=1 to 9 do
begin
write(' ',j,'+',i,':=',i+j:2);
end;
writeln;
end;
readkey
end.