Напишите функцию, которая заменяет расширение
файла на заданное новое расширение.
Пример:
Введите имя файла: qq
Введите новое расширение: tmp
Результат: qq. tmp
Пример:
Введите имя файла: qq. exe
Введите новое расширение: tmp
Результат: qq. tmp
Пример:
Введите имя файла: qq. work. xml
Введите новое расширение: tmp
Результат: qq. work. tmp

file = input('Введите имя файла: ')

expansion = input('Введите новое расширение: ')

if '.' not in file:

   print(file + '.' + expansion)

else:

   i = -1

   while file[i] != '.':

       file = file[0:i]

   print(file + expansion)

program ssd;

  uses crt,graph;

  var   a,a1,a2,a3: integer;

  begin

  clrscr;

  writeln('введите трехзначное число');

  readln(a);

  a1: = a mod 10;

  a2: =(a div 10) mod 10;

  a3: = a div 100;

  writeln('      ',a1,a2,a3);

  readkey;

end.

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

что то вроде такого)