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

Text3. Дано имя файла и целое число $$N$$ $$(0<N<27)$$. Создать текстовый файл с указанным именем и записать в него $$N$$ строк длины $$N$$; строка с номером $$K$$ $$(K=1,…,N)$$ должна содержать $$K$$ начальных прописных (то есть заглавных) латинских букв, дополненных справа символами «*» (звездочка). Например, для $$N=4$$ файл должен содержать строки «A***», «AB**», «ABC*», «ABCD».

Решение:

program Text3;
var
  F: Text;
  i,j,N,K: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(65+j));
   for j:=i to N-1 do write(F,'*');
   if i<>N then Writeln(F);
  end;
 Close(F);
end.

program Text3;

var

F: Text;

i,j,N,K: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(65+j));

for j:=i to N-1 do write(F,'*');

if i<>N then Writeln(F);

end;

Close(F);

end.

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

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

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

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