урок 13.1 задача 2

Primary tabs

isaac_fan's picture
Submitted by isaac_fan on Tue, 04/26/2022 - 18:25

Forums:

Выведите на экран таблицу умножения используя только циклы вида while.

var i, j: integer;
begin
  i := 1; 
  while (i <= 9) do 
    begin
    j := 1;
     while (j <= 9) do 
        begin
         write(i, '*', j, '=', i*j, ' ');
      writeln(); 
      j:=j+1;
      end;
      i:=i+1; 
    end;
   readln();
end.
  • Log in to post comments
  • 1825 reads
vedro-compota's picture

vedro-compota

Tue, 04/26/2022 - 20:51

переделать форматирование

_____________
матфак вгу и остальная классика =)

isaac_fan's picture

isaac_fan

Sat, 04/30/2022 - 21:23 

var i, j: integer;
begin
   i := 1; 
   while (i <= 9) do
     begin
        j := 1;
        while (j <= 9) do
          begin
            write(i, '*', j, '=', i*j, ' ');
            writeln(); 
            j:=j+1;  
          end;
             i:=i+1; 
         end;
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 05/10/2022 - 18:03

форматирование неправильное, проверить

_____________
матфак вгу и остальная классика =)

isaac_fan's picture

isaac_fan

Tue, 05/17/2022 - 16:31 

var i, j: integer;
begin
  i := 1;
  while (i <= 9) do
    begin
      j := 1;
      while (j <= 9) do
        begin
          write(i, '*', j, '=', i*j, ' ');
          writeln();
          j:=j+1;
        end;
      i:=i+1;
    end;
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 06/07/2022 - 20:23

исправить форматирование, решение верное

_____________
матфак вгу и остальная классика =)

isaac_fan's picture

isaac_fan

Sat, 06/11/2022 - 21:42 

var i, j: integer;
begin
  i := 1;
  while (i <= 9) do
  begin
     j := 1;
     while (j <= 9) do
     begin
       write(i, '*', j, '=', i*j, ' ');
       writeln();
       j:=j+1;
      end;
    i:=i+1;
  end;
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 08/23/2022 - 20:18

не идеально, перепроверить форматирование

_____________
матфак вгу и остальная классика =)

isaac_fan's picture

isaac_fan

Mon, 08/29/2022 - 20:47 

var i, j: integer;
begin
  i := 1;
  while (i <= 9) do
  begin
     j := 1;
     while (j <= 9) do
     begin
       write(i, '*', j, '=', i*j, ' ');
       writeln();
       j:=j+1;
     end;
    i:=i+1;
  end;
  readln();
end.
vedro-compota's picture

vedro-compota

Thu, 09/08/2022 - 20:01

засчитано

_____________
матфак вгу и остальная классика =)