Дано целое число N (>2). Последовательность вещественных чисел AK определяется следующим образом

@Student_Skgu · Регистрация: 29.09.2013

Имя входного файла zс37.in
Имя выходного файла zc37.out
Дано целое число N (>2). Последовательность вещественных чисел AK определяется следующим образом
A1=1
a2=2,
a3=3,
Вывести элементы
Формат входных данных: ввод состоит из одного числа
Формат выходных данных: вывод содержит последовательность чисел, записанных каждое с новой строки.
Пример входного файла:
4
Пример выходного файла:
1
2
3
3

Pascal

program hidan;
var n,a,c,i:integer;
  y: real;
t:array[1..100] of real;
f_in, f_out:text;
begin
   assign(f_in,'z291_in.txt'); rewrite(f_in);writeln('Ââåäèòå ÷èñëî'); readln(n);
   writeln (f_in, n);
   close(f_in);
   reset(f_in);
   readln(f_in,n);
   for i:=1 to n do
      readln(f_in,t[i]) ;
assign(f_out,'z291_out.txt');
   rewrite(f_out);
 writeln(f_out,t[i]);
   close(f_in);
   close(f_out);
   end.

@AlexKolc · 18.09.2014, 18:57

Добавлено через 4 минуты

Сообщение от Student_Skgu

writeln(f_out,t[i]);

i перед этим не определенно, как вы выводите t[i]?

Добавлено через 2 минуты

Сообщение от Student_Skgu

for i:=1 to n do
readln(f_in,t[i]) ;

у вас в файле единственное число n, как вы считываете массив?

Добавлено через 4 минуты
если я правильно поняла условие, то должно быть так

Pascal

program hidan;
var n, i:integer;
f_in, f_out:text;
 
begin
   assign(f_in,'z291_in.txt'); reset(f_in);
   assign(f_out,'z291_out.txt'); rewrite(f_out);
   readln(f_in, n);   
   for i:=1 to n do
      writeln(f_out, i);
   close(f_in);
   close(f_out)
end.

Опции темы