{ Дано предложение. Подсчитать число пробелов, стоящих на нечетных местах, и заменить такие пробелы на символ «*» }
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. результат карандашкарандаш аракшаднаракшадн
1.var s,s1,s2:string;i,a,sum:integer;beginreadln(s);s1:=' ';s2:='*';sum:=0;for i:=1 to length(s) doif pos(s1,s) mod 2=1 then beginsum:=sum+1;insert(s2,s,pos(s1,s));delete(s,pos(s1,s),1);end;writeln(sum);writeln(s);end.var s, s1, s2: string; i, a, sum: integer; begin readln(s); s1 := ' '; s2 := '*'; sum := 0; for i := 1 to length(s) do if pos(s1, s) mod 2 = 1 then begin sum := sum + 1; insert(s2, s, pos(s1, s)); delete(s, pos(s1, s), 1); end; writeln(sum); writeln(s);end. 2.var s, s1, s2: string; i, a: integer; begin readln(s); if length(s) mod 4 = 0 then begin for i := 1 to length(s) do begin if (i mod 4) = 1 then begin s1 := copy(s, i, 1); s2 := copy(s, i + 3, 1); Delete(s, i, 1); Delete(s, i + 2, 1); insert(s2, s, i); insert(s1, s, i + 3); end; if (i mod 4) = 2 then begin s1 := copy(s, i, 1); s2 := copy(s, i + 1, 1); Delete(s, i, 1); Delete(s, i, 1); insert(s2, s, i); insert(s1, s, i+1); end; end; end; writeln(s);end.
стоящих на нечетных местах, и заменить такие пробелы
на символ «*» }
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.
результат
карандашкарандаш
аракшаднаракшадн
begin readln(s); s1 := ' '; s2 := '*'; sum := 0; for i := 1 to length(s) do if pos(s1, s) mod 2 = 1 then begin sum := sum + 1; insert(s2, s, pos(s1, s)); delete(s, pos(s1, s), 1); end; writeln(sum); writeln(s);end.
2.var s, s1, s2: string; i, a: integer;
begin readln(s); if length(s) mod 4 = 0 then begin for i := 1 to length(s) do begin if (i mod 4) = 1 then begin s1 := copy(s, i, 1); s2 := copy(s, i + 3, 1); Delete(s, i, 1); Delete(s, i + 2, 1); insert(s2, s, i); insert(s1, s, i + 3); end; if (i mod 4) = 2 then begin s1 := copy(s, i, 1); s2 := copy(s, i + 1, 1); Delete(s, i, 1); Delete(s, i, 1); insert(s2, s, i); insert(s1, s, i+1); end; end; end; writeln(s);end.