Урок 12.1 Задача 1

Урок 12.1 Задача 1

Выведите на экран, все числа от 55 до 9236

Решение:

program Project1;
var  r, f: integer;
begin
  f := 55;
  r := 9236;
  repeat
    writeln(f, '');
    f := f + 1;
  until  (f=r);

  readln();
end.

Почему то когда программа завершается первое число становиться 236 Б, но если во время печати программы вернуться в начало то первым числом становиться 55

vedro-compota's picture

твой вывод заканчивается как:

9226
9227
9228
9229
9230
9231
9232
9233
9234
9235

-- а числа 9236 нет. Исправить

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

program Project1;
var  r, f: integer;
begin
  f := 55;
  r := 9236;
  repeat
    writeln(f, '');
    f := f + 1;
  until  (f>r);

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

засчитано

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