Решаем задачи Абрамян на Паскале. File2

File2. Дано имя файла и целое число $$N(> 1)$$ . Создать файл целых чисел с данным именем и записать в него $$N$$ первых положительных четных чисел $$(2, 4, …)$$.

Решение:

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.

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.

Другие задачи из раздела File можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. File2

Комментарии:

Добавить комментарий Отменить ответ