Типизированные файлы, Pascal

1. Ввести с клавиатуры целое число N (>1). Создать файл целых чисел и записать в него N первых положительных четных чисел (2, 4, ...).

2. Вывести содержимое файла на экран.

Question

Информатика

Митрофан

31 января, 09:38

Типизированные файлы, Pascal

1. Ввести с клавиатуры целое число N (>1). Создать файл целых чисел и записать в него N первых положительных четных чисел (2, 4, ...).

2. Вывести содержимое файла на экран.

+5

Ответы (1)

Знаете ответ на вопрос?

Артамоныч · Answer 1

Program n1;

var n, i: longint;

t: text;

s: string;

begin

readln (n) ;

assign (t,'file. txt') ;

rewrite (t) ;

for i:=2 to n do if i mod 2=0 then write (t, i,' ') ;

close (t) ;

assign (t,'file. txt') ;

reset (t) ;

read (t, s) ;

write (s) ;

close (t) ;

end.