Напишите функцию,которая заменяет расширение файла на заданное новое расширение

@Марина Маркова · Регистрация: 07.09.2016

Author24 — интернет-сервис помощи студентам

@Puporev · 20.10.2016, 16:57

Pascal

function rash(name,ras:string):string;
begin
result:=copy(name,1,pos('.',name))+ras;
end;
 
var s,s1:string;
begin
writeln('Введите имя файла с расширением');
readln(s);
writeln('Введите новое расширение');
readln(s1);
s:=rash(s,s1);
write(s)
end.

@Марина Маркова 0 / 0 / 0 Регистрация: 07.09.2016 Сообщений: 19
		1
	Напишите функцию,которая заменяет расширение файла на заданное новое расширение 20.10.2016, 15:54. Показов 15479. Ответов 1 Метки нет (Все метки) Напишите функцию,которая заменяет расширение файла на заданное новое расширение 0

	20.10.2016, 16:57

Опции темы

Напишите функцию,которая заменяет расширение файла на заданное новое расширение

Решение