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

0 голосов
46 просмотров

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


Информатика (27 баллов) | 46 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(149k баллов)