Infiniti_Inter

II/19

May 12th, 2021
445
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program II;//название
  2. var//объявление переменных
  3. i, j: integer;//индекс
  4. begin
  5.     for i:= 1 to 9 do//перебираем первую и последнюю цифру
  6.         for j:= 0 to 9 do//перебираем вторую цифру
  7.             Write(i, j, i, ' ');//выводими комбинацию
  8. end.
RAW Paste Data