uses SysUtils; var a:array[0..100,0..100]of integer; i,j,n,m:integer; begin read(n,m); i:=0; j:=-1; while i<n do begin a[i,j]:=i*j; inc(j); if j>=m then begin j:=0; inc(i); end; end;
for i:=0 to n-1 do begin for j:=0 to m-1 do write(a[i,j],' '); writeln; end; readln; readln;
1)Открыть ворд 2)Вставить картинку(если она скопирована вставить,если нет то открыть и выбрать фото) 3)Текст и нажать на картинку там написать текст и готово .
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a:array[0..100,0..100]of integer;
i,j,n,m:integer;
begin
read(n,m);
i:=0; j:=-1;
while i<n do begin
a[i,j]:=i*j;
inc(j);
if j>=m then
begin j:=0; inc(i);
end;
end;
for i:=0 to n-1 do begin
for j:=0 to m-1 do
write(a[i,j],' ');
writeln;
end;
readln;
readln;
end.
2)Вставить картинку(если она скопирована вставить,если нет то открыть и выбрать фото)
3)Текст и нажать на картинку там написать текст и готово .