Pascal ABC Цикл for to do Задание в файле Помогите пожалуйста

Question

Pascal ABC
Цикл for to do
Задание в файле
Помогите пожалуйста

---

Скачать вложение Word (DOC)

Comments

Вам как нужно возможно использование массивов

---

Нет, массивы использовать нельзя

---

хорошо пробуем

Answer 1

VAR
   i, j: Integer;
BEGIN
   Write(' ');
   for i := 1 to 9 do Write(i,' '); Writeln;

   for i := 1 to 9 do begin
      Write(i,' ');
      for j := 1 to 9 do
         if (i*j > 9) then Write(i*j,' ')
         else Write(i*j,' ');
      Writeln;
   end;
END.

Comments

блин, он отступы съел :(

---

VAR
i, j: Integer;
BEGIN
Write(' ');
for i := 1 to 9 do Write(i,' '); Writeln;

for i := 1 to 9 do begin
Write(i,' ');
for j := 1 to 9 do
if (i*j > 9) then Write(i*j,' ')
else Write(i*j,' ');
Writeln;
end;
END.

---

блин, и тут тоже

---

Да всё норм, спасибо

---

в 4 строке - 5 отступов

---

в 5 строке - 4 отступа

---

в 10 строке - 3 отступа

---

в 11 строке - 4 отступа

---

отступы ставятся во Write, между ' '