Перевел всё в К<span>байт
7) 0.001 </span>Кбайт<span>
4) 0.12825 </span>Кбайт<span>
2) 1.02425 </span>Кбайт<span>
3) 1 </span>Кбайт<span>
5) 1.028 </span>Кбайт<span>
6) 8 </span>Кбайт<span>
1) 8.194 </span>Кбайт
//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
Чашку разбил Серёжа. Коля – правдивый, Серёжа – хитрец, Вася – шутник
Число в системах счисления :120(10)=170(8)=78(16)
тттттт!ттттттттттт!тттт