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

Text2. Дано имя файла и целое число $$N$$ $$(0<N<27)$$. Создать текстовый файл с указанным именем и записать в него $$N$$ строк: первая строка должна содержать строчную (то есть маленькую) латинскую букву «a», вторая — буквы «ab», третья — буквы «abc» и т. д.; последняя строка должна содержать $$N$$ начальных строчных латинских букв в алфавитном порядке.

Решение:

program Text2;
var
  F: Text;
  i,j,N:integer;
  Name:String;
begin
 Write('File name: ');
 Readln(Name);

 Write('N: ');
 Readln(N);

 Assign(F,Name);
 ReWrite(F);
 for i:=1 to N do
  begin
   for j:=0 to i-1 do write(F,char(97+j));
   if i<>N then Writeln(F);
  end;
 Close(F);
end.

program Text2;

var

F: Text;

i,j,N:integer;

Name:String;

begin

Write('File name: ');

Readln(Name);

Write('N: ');

Readln(N);

Assign(F,Name);

ReWrite(F);

for i:=1 to N do

begin

for j:=0 to i-1 do write(F,char(97+j));

if i<>N then Writeln(F);

end;

Close(F);

end.

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

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

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

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