Question

Напишите программу, которая заменяет расширение у заданного имени файла. Входные данные Первая строка содержит имя файла, которое нужно изменить. Во второй строке записано нужное расширение. Выходные данные Программа должна вывести изменённое имя файла с заданным расширением. Примеры входные данные qwerty exe выходные данные qwerty.exe входные данные qwetry.old.pas html выходные данные qwetry.old.html

Answer 1

//Pascal ABC.NET v3.1 сборка 1219

Var
 s,sf:string;
begin
 readln(s);
 readln(sf);
 if pos('.',s)<>0 then
 delete(s,s.LastIndexOf('.')+2,length(s)-s.LastIndexOf('.'))
 else
 s+='.'; 
 writeln(concat(s,sf));
end.

Пример ввода:
point.simple.txt
pdf
Пример вывода:
point.simple.pdf

Answer 2

Вот пример программы на языке Python, которая заменяет расширение у заданного имени файла:

def change_extension(filename, new_extension):
    # Разделение имени файла и расширения
    name, extension = filename.rsplit('.', 1)
    # Замена расширения
    new_filename = name + '.' + new_extension
    return new_filename

# Ввод данных
filename = input("Введите имя файла: ")
new_extension = input("Введите новое расширение: ")

# Вызов функции и вывод результата
new_filename = change_extension(filename, new_extension)
print("Измененное имя файла:", new_filename)

Примеры использования: - Входные данные: `qwerty.exe` - Вывод: `qwerty.exe` - Входные данные: `qwetry.old.pas` - Вывод: `qwetry.old.html`

Примечание: Программа предполагает, что введенное имя файла содержит только одну точку, разделяющую имя файла и расширение. Если имя файла содержит несколько точек, то программа будет заменять только последнее расширение.