Ответ(ы) на вопрос:
Гость//PascalABC.NET 3.1 сборка 1239
uses PT4;
var
f: text;
s: string;
i, n: integer;
begin
Task('Text2');
readln(s);
readln(n);
assign(f, s);
Rewrite(f);
s := '';
for i := 1 to n do
begin
s := s + chr(96 + i);
writeln(f, s);
writeln(s);
end;
Close(f);
end.
Не нашли ответ?
Похожие вопросы