Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

//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