урок 12.2 задача 1

Primary tabs

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

Forums:

var i: integer;
begin

for i:=5 to 34 do
write(i, ' ');

readln();
end.
Перепишите её, используя цикл while.

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

vedro-compota

Tue, 04/26/2022 - 20:42

  1. проверить форматирование - остальное правильно для while
  2. добавить repeat-until

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

isaac_fan's picture

isaac_fan

Sat, 04/30/2022 - 21:46

форматирование

var i: integer;
begin
  i := 5; 
  
  while i <= 34 do
    begin
      write(i, ' ');
      i := i + 1;
    end;
   
  readln();
end.

на цикл for

var i: integer;
begin
  i := 5;

  repeat
    begin
      write(i, ' ');
      i := i + 1;
    end;
  until(i>34);

  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 05/10/2022 - 17:38

засчитано

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