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

Primary tabs

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

Forums:

У вас есть программа, использующая цикл while:
var
i: integer;
begin
i:=1;
while i begin
write(i, ' ');
i:=i+5;
end;

readln();
end.

Вариант 1.
Используем цикл REPEAT/UNTIL

begin
  i := 1;
  repeat
    write(i, ' ');
    i := i + 5;
  until (i >100);
  readln();
end.

Вариант 2.
Используем цикл FOR

var i:integer;
begin
  write(1,' ');
  for i := 1 to 100 do
    begin
      if ((i mod 5) = 0) and (i < 100) then
      write(i+1, ' ');
    end;
  readln();
end.
  • Log in to post comments
  • 1781 reads
vedro-compota's picture

vedro-compota

Tue, 04/26/2022 - 20:47 

  for i := 1 to 100 do
    begin
      if ((i mod 5) = 0) and (i < 100) then
      write(i+1, ' ');
    end;

--

  1. исправить форматирование
  2. удалить лишнее условие

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

isaac_fan's picture

isaac_fan

Sat, 04/30/2022 - 21:40 

var i :integer;
begin
i:=1;
    if ((i mod 5) = 0) and (i < 100) then
      write(i+1, ' ');
end.
vedro-compota's picture

vedro-compota

Tue, 05/10/2022 - 17:39

это не решение задачи, задача должна продолжать работать по условию после правки

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

isaac_fan's picture

isaac_fan

Tue, 05/17/2022 - 16:34 

var i:integer;
begin
  write(1,' ');
  for i := 1 to 100 do
    begin
      if ((i mod 5) = 0)  then
      write(i+1, ' ');
    end;
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 05/24/2022 - 20:38

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

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

vedro-compota's picture

vedro-compota

Tue, 06/07/2022 - 20:22

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

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

isaac_fan's picture

isaac_fan

Sat, 06/11/2022 - 13:36 

var i:integer;
begin
  write(1,' ');
  for i := 1 to 100 do
    if ((i mod 5) = 0)  then
      write(i+1, ' ');
  readln();
end.