Ответы на вопрос:
1. var s: string; p: integer; begin readln(s); p: =pos('_',s); delete(s,p,1); insert(', ',s,p); writeln(s); end. пример: program_begin program, begin2.var s: string; l,p: integer; beginreadln(s); l: =length(s); p: =pos(' ',s); s: =copy(s,p+1,l-p+1)+' '+copy(s,1,p-1)+'? '; writeln(s); end.пример: program beginbegin program?
Популярно: Информатика
-
stacymacalister01.10.2020 17:14
-
Даша010909.11.2021 16:16
-
ЯковПервый28.11.2020 09:17
-
121e312r321420.02.2021 20:46
-
vicroriaalakoz314.09.2021 07:10
-
lexelol200510.05.2021 15:56
-
SoloveiG09.09.2022 11:32
-
хагагпррр22.09.2020 06:25
-
diatel8315.03.2022 09:46
-
яЭльф19.11.2022 16:20