Дано предложение. Все его символы стоящие ** третьем, шестом, девятом и т.д. местах,...

0 голосов
90 просмотров

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


Информатика (20 баллов) | 90 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(88 баллов)