Авдеевич 26 ноября 2019 в 05:15
Напишите программу, которая заменяет расширение у заданного имени файла.
Входные данные
Первая строка содержит имя файла, которое нужно изменить. Во второй строке записано нужное расширение.
Выходные данные
Программа должна вывести изменённое имя файла с заданным расширением.
Примеры
входные данные
qwerty
exe
выходные данные
qwerty.exe
входные данные
qwetry.old.pas
html
выходные данные
qwetry.old.html
Напишите программу, которая заменяет расширение у заданного имени файла.
Входные данные
Первая строка содержит имя файла, которое нужно изменить. Во второй строке записано нужное расширение.
Выходные данные
Программа должна вывести изменённое имя файла с заданным расширением.
Примеры
входные данные
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)lt;gt;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
Var
s,sf:string;
begin
readln(s);
readln(sf);
if pos(.,s)lt;gt;0 then
delete(s,s.LastIndexOf(.)+2,length(s)-s.LastIndexOf(.))
else
s+=.;
writeln(concat(s,sf));
end.
Пример ввода:
point.simple.txt
Пример вывода:
point.simple.pdf
Компьютеры и вычисления
287
0
Для комментирования необходимо зарегистрироваться на сайте