Напишите программу, которая заменяет расширение у заданного имени файла. Входные данные Первая строка содержит имя файла, которое нужно изменить. Во второй строке записано нужное расширение. Выходные данные Программа должна выв...
Напишите программу, которая заменяет расширение у заданного имени файла.
Входные данные
Первая строка содержит имя файла, которое нужно изменить. Во второй строке записано нужное расширение.
Выходные данные
Программа должна вывести изменённое имя файла с заданным расширением.
Примеры
входные данные
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
Не нашли ответ?
Похожие вопросы