Дано предложение. Все его символы стоящие на третьем, шестом, девятом и т.д. местах, заменить на букву а.
Помогите пожалуйста. На языке pascal))

Program qq;
var s:string;
  x,i:integer;
begin
  writeln(Введите предложение:);
  readln(s);
  x:=length(s) div 3;
  for i:=1 to x do
  s[i*3]:=а;
  writeln(s);
end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!