Ответы на вопрос:
{дано предложение. подсчитать число пробелов, стоящих на нечетных местах, и заменить такие пробелы на символ «*» } var t,s: string; n,k,i: integer; begin writeln ('введите предложение: '); readln (t); n: =length(t); s: ='*'; k: =0; for i: =1 to n do begin; if (t[i]=' ') and (i mod 2 =1) then begin k: =k+1; delete(t,i,1); insert(s,t,i); end end; writeln (t); writeln ('нечетных пробелов: ',k) end. жил да*был*черный кот за*углом. нечетных пробелов: 3 { дано слово, состоящее из количества букв кратного четырем. поменять в нем буквы следующим образом: первую с четвертой, вторую с третьей, пятую с восьмой, шестую с седьмой и т.д. например, из слова «карандаш» должны получить «аракшадн». } const k=4; var a,a1,a2: string; n,i: integer; begin writeln ('введите слово: '); readln (a); n: =length(a) div k; for i: =1 to n do begin a1: =leftstr(a,k); delete(a,1,k); a1: =reversestring(a1); a2: =a2+a1; end; writeln (a2); end. карандашкарандаш аракшаднаракшадн
Популярно: Информатика
-
ddddsfvxsf09.03.2021 03:28
-
aruzhaan200308.06.2023 15:39
-
XuJIuGan10.01.2020 09:43
-
ольга170524.06.2023 12:39
-
vaniafc00727.10.2020 10:03
-
ира79616.07.2021 04:30
-
Информатик11111127.08.2020 01:30
-
vektar123411.02.2022 06:34
-
nvede19.06.2022 19:18
-
linagurova654525.11.2022 22:27