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

Primary tabs

Submitted by kuznmax on Sun, 04/24/2022 - 12:46

Forums:

Урок 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.
  • Log in to post comments
  • 1158 reads

kuznmax

Sun, 04/24/2022 - 12:54

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

vedro-compota's picture

vedro-compota

Tue, 04/26/2022 - 19:48

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

9226
9227
9228
9229
9230
9231
9232
9233
9234
9235

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

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

kuznmax

Mon, 05/02/2022 - 13:20 

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

vedro-compota

Tue, 05/10/2022 - 16:47

засчитано

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