Question

Составьте программу паскаль. Результат должен быть таким:

Answer 1

var

i, n: integer;

begin

for i := 1 to 4 do

begin

for n := 2 to 4 do

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

writeln();

end;

end.

Answer 2

Var

a:integer;

Begin

Writeln('2*1=2 3*1=3 4*1=4' );

Writeln('2*2=4 3*2=6 4*2=8' );

Writeln('2*3=6 3*3=9 4*3=12' );

Writeln('2*4=8 3*4=12 4*4=16' );

End.