Ввести имя файла и изменить его на расширение ". exe". Помогите дописать задачу:

program qq;

var s:string;

n: integer;

begin

s: = ('Привет. txt') ;

read (s) ;

n:=Pos ('.', s) ;

Pelete (s, n+1,3) ;

s:=

Question

Информатика

Донат

4 апреля, 16:28

Ввести имя файла и изменить его на расширение ". exe". Помогите дописать задачу:

program qq;

var s:string;

n: integer;

begin

s: = ('Привет. txt') ;

read (s) ;

n:=Pos ('.', s) ;

Pelete (s, n+1,3) ;

s:=

+2

Ответы (1)

Знаете ответ на вопрос?

Дарина · Answer 1

Замечание: предполагается, что в имени файла нет ".".

program qq;

var s:string;

begin

writeln ('Введите имя файла:') ;

readln (s) ;

s:=copy (s, 1, pos ('.', s)) + 'exe';

writeln (s) ;

end.

Пример:

Введите имя файла:

Привет. txt

Привет. exe

Ввести имя файла и изменить его на расширение ". exe". Помогите дописать задачу:program qq;var s:string;n: integer;begins: = ('Привет. txt') ;read (s) ;n:=Pos ('.', s) ;Pelete (s, n+1,3) ;s:=

Ввести имя файла и изменить его на расширение ". exe". Помогите дописать задачу:

program qq;

var s:string;

n: integer;

begin

s: = ('Привет. txt') ;

read (s) ;

n:=Pos ('.', s) ;

Pelete (s, n+1,3) ;

s:=