Question

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

def87763575bc6917dd20522dad94e9c.doc

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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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