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

Primary tabs

isaac_fan's picture
Submitted by isaac_fan on Tue, 05/31/2022 - 12:04

Forums:

урок 12.2

У вас есть программа, использующая цикл while:

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

Перепешите её с помощью цикла for
мне сказали зделать только это

var
   i: integer;
begin

  for i:=1 to 100 do
  begin
    write(i, ' ');

  end;

  readln();
end.
  • Log in to post comments
  • 666 reads
vedro-compota's picture

vedro-compota

Tue, 06/07/2022 - 20:47

сравнить что распечатает исходная программа и что распечатает новая.
Вывод должен быть одним и тем же

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

isaac_fan's picture

isaac_fan

Sun, 06/12/2022 - 15:01 

var
   i,a: integer;
begin
  i:=1;
  for i:=1 to 100 do
  begin
    a:=i;
    a:=a+5;
    write(a, ' ');

  end;

  readln();
end.