Вопрос по задаче №2 из главы 12.2. Переделать цикл while на for

Primary tabs

gani84's picture
Submitted by gani84 on Thu, 03/28/2019 - 11:04

Forums:

Вопрос по задаче №2 из главы 12.2

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

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

Объясните что делает эта программа (что будет выведно на экран и почему)
Перепешите её с помощью цикла repeat/until
Перепешите её с помощью цикла for

Как получить результат через for, которые были получены через циклы repeat-until и while:
1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76 81 86 91 96
Я заметил что числа заканчиваются на 1 и 6
но никак не могу сообразить как задать условие для for
Думаю задать через if и mod, div
Но как это сделать?

Key Words for FKN + antitotal forum (CS VSU):

  • Log in to post comments
  • 31933 reads
gani84's picture

gani84

Mon, 06/22/2020 - 12:08

Результат выводиться 1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76 81 86 91 96. Без переменной 'a' программа работать не будет. Просьба засчитать

gani84's picture

gani84

Mon, 06/22/2020 - 12:11

Результат выводиться 1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76 81 86 91 96 . Без переменной "a" код не будет работать. Просьба засчитать других вариантов нет.

gani84's picture

gani84

Tue, 08/18/2020 - 12:26 

var i,a:integer;
begin
    a:=1; //инициализация переменной

    for i:=1 to 19 do
    begin
      write(a,' ');
      a:=a+5; //задаем шаг 5

    end;
   writeln();
   readln();
end.