Дана строка из 30 символов, удалить 1 и 5 символ, заменить все точки на запятые, сделать все символы прописными и вставить в конец точку
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
//Pascal ABC.NET 3.1 сборка 1219Var
s:string;
c:integer;
begin
readln(s);
delete(s,1,1);
delete(s,4,1);
while pos('.',s)<>0 do
begin
c:=pos('.',s);
delete(s,c,1);
insert(',',s,c);
end;
s:=s.ToLower+'.';
writeln(s);
end.
Пример ввода:
СТРОКА из 30 символов. удалить 1 и 5
Пример вывода:
троа из 30 символов, удалить 1 и 5.