Вывести таблицу умножения от 2 до 9.

[puporev]

но эта поправка удвоит длину кода, поэтому оставил так

Ничего подобного...

program a2;
uses crt;
var x,y: integer;
begin clrscr;
for y:=1 to 4 do
  begin
   for x:=2 to 5 do
    write(x,'x',y,'=',x*y:2,'  '); writeln; {первые 4 строки}
  end;
for y:=5 to 9 do
  begin
   for x:=2 to 5 do
    write(x,'x',y,'=',x*y:2,'  '); writeln; {строки с 5 по 9}
 end;
writeln; {отступ на средине таблицы (10я строка)}
for y:=1 to 9 do
 begin
  for x:=6 to 9 do
   write(x,'x',y,'=',x*y:2,'  '); writeln; {строка с 11 по 19}
 end;
readkey
end.

Если как в закрытой теме, то так.

uses crt;
var i,j:byte;
begin
clrscr;
writeln('ТАБЛИЦА ПИФАГОРА':22);
write('|':3);
for i:=1 to 9 do write(i:3);
writeln;
for i:=1 to 30 do write('-');
writeln;
for i:=1 to 9 do
 begin
  write(i,' |');
  for j:=1 to 9 do
  write(i*j:3);
  writeln;
 end;
readln
end.

[TinMan]

Сообщение от puporev

writeln('ТАБЛИЦА ПИФАГОРА':22);

А при чем тут Пифагор?..

[puporev]

При том.
http://www.programmersforum.ru/searc...archid=1033492

[Serge_Bliznykov]

puporev, на данном форуме результаты поиска доступны только в вашей сессии (да и то не долго). Поэтому подобные ссылки давать бессмысленно!


TinMan,

Сообщение от TinMan

А при чем тут Пифагор?..

ну, коллега...
имеется в виду закрытая тема от топикстартера:
Вывести таблицу Пифагора.

а вообще, удивительно, что Вы не слышали про такое название.
с википедии - Таблица умножения

Табли́ца умноже́ния, она же табли́ца Пифаго́ра — таблица, где строки и столбцы озаглавлены множителями, а в ячейках таблицы находится их произведение. Используется для обучения школьников умножению.:

[TinMan]

Сообщение от Serge_Bliznykov

ну, коллега...

Искренне польщен, без балды

имеется в виду закрытая тема от топикстартера

Спасибо, теперь ясно. Это был способ обойти (совершенно непонятные, впрочем) действия модераторов..

а вообще, удивительно, что Вы не слышали про такое название.

Дык ведь и правда не слышал! или прочно забыл.. То, что Треугольник Паскаля назвали Таблицей Пифагора, меня немного покоробило, но заострять на этом внимания я не стал (а зря). Так что - спасибо, коллега, за восполнение пробела в моем образовании! +1 (эх, надо книжицу заводить..))