написать в паскале программу таблицы умнажения ** 7

Question

написать в паскале программу таблицы умнажения на 7

Comments

program chik;var i,j:integer;a:array[1..10,1..10]of integer;beginfor i:=1 to 10 dobeginfor j:=1 to 10 dobegina[i,j]:=i*j;write(a[i,j]:3,' ');end;writeln;end;end. Это для общего случая

Answer 1

Program chik;
var i:integer;
begin
for i:=1 to 10 do
writeln(7,'*',i:2,'=',i*7:2);
end.

Answer 2

Program Tablitca_na7;
var x,y: integer;
begin
for y:=1 to 10 do
  begin
   for x:=7 to 7 do
    write(x,'x',y,'=',x*y,'   ');
     writeln;
  end;
   end.