Программа пишет все числа до числа n, а надо n чисел положительных и нечетных - Pascal ABC

Формулировка задачи:

Дано имя файла и целое число N (> 1). Создать файл целых чисел с данным именем и записать в него N первых положительных нечетных чисел (1, 3, 5…). Программа пишет все числа до числа n, а надо n чисел положительных и нечетных. как исправить?
uses crt;//Подключение библиотеки вывода на экран
var//Описание переменных
  f: text;//Описание переменных
  fname: string;//Описание переменных
  n, i: integer;//Описание переменных
begin//Начало программы
  clrscr;//Очистка экрана
  write('Введите имя файла без расширения: ');//Вывод текста
  readln(fname);//Ввод
  fname := fname + '.txt';//Добавление расширения файла
  assign(f, fname);//Создание файла
  rewrite(f);//Открытие  файла для записи
  repeat//Цикл с постусловием
    write('Введите N>1 n=');//Вывод текста
    readln(n);//Ввод
  until n > 1;//Цикл с постусловием
  for i := 1 to n do//Цикл с предусловием
  begin//Начало операторских скобок
    if ((i mod 2) <> 0) then//Условие
      write(f, ', ', i);//Запись в файл
  end;//Конец операторских скобок
  close(f);//Закрытие  файла для записи
  write('Файл записан');//Вывод текста
  readln//Задержка
end.//Конец
Добавлено через 22 часа 19 минут Разобрался, чтобы вывести n чисел, мы n умножаем на 2, так как пишем в файл только нечетные числа, соответственно записывается количество чисел равное n/2, а умножая n на 2 мы возвращаем нужное кол-во чисел


textual

Код к задаче: «Программа пишет все числа до числа n, а надо n чисел положительных и нечетных - Pascal ABC»

for i:=1 to n do
write(2*i-1);
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 3.250 из 5

Источник
Похожие ответы