File2. Дано имя файла и целое число N (> 1). Создать файл целых чисел с дан-ным именем и записать в него N первых положительных четных чисел (2, 4, …).
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | program File2; var S:String; F: File of integer; N,i,Num:integer; begin Write('S: '); Readln(S); Write('N: '); Readln(N); Assign(F,S); ReWrite(F); For i:=1 to N do begin Num:=i*2; Write(F, Num); end; Close(F); end. |