Top.Mail.Ru
Ответы
Аватар пользователя
Аватар пользователя
Аватар пользователя
Аватар пользователя
Программирование
+4

Программа на Паскаль

Здравствуйте. Если есть профессионалы по этой теме, прошу мне написать программу, которая выведет мне таблицу, как показано на фото ниже. Пропустил 2 урока и теперь не знаю как это сделать, однако одноклассники даже помочь не хотят. В прочем я иногда умудрялся списать с нейросети, а вот щас уже она не в состоянии сделать даже такое.
Заранее спасибо!

По дате
По рейтингу
Аватар пользователя
Просветленный
1234567891011121314151617
 program addition_table; 
var 
  i, j: integer; 
begin 
  writeln('Таблица сложения'); 
  write('  '); 
  for i := 1 to 9 do 
    write(i:3); // выводим верхнюю строку с числами от 1 до 9
  writeln; 
  for i := 1 to 9 do 
  begin 
    write(i:2, ' '); // выводим левый столбец с числами от 1 до 9 
    for j := 1 to 9 do 
      write(i + j:3); // выводим результат сложения i и j 
    writeln; // переходим на новую строку 
  end; 
end.