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

Text1. Дано имя файла и целые положительные числа $$N$$ и $$K$$. Создать текстовый файл с указанным именем и записать в него $$N$$ строк, каждая из которых состоит из $$K$$ символов «*» (звездочка).

Решение:

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

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

 Write('K: ');
 Readln(K);

 Assign(F,Name);
 ReWrite(F);

 for i:=1 to N do
  begin
   for j:=1 to K do write(F,'*');
   if i<>N then Writeln(F);
  end;
 Close(F);
end.

program Text1;

var

F: Text;

i,j,N,K:integer;

Name:String;

begin

Write('File name: ');

Readln(Name);

Write('N: ');

Readln(N);

Write('K: ');

Readln(K);

Assign(F,Name);

ReWrite(F);

for i:=1 to N do

begin

for j:=1 to K do write(F,'*');

if i<>N then Writeln(F);

end;

Close(F);

end.

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

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

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

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