Паскаль

данн предложение. все его символы, стоящие на третьем, шестом, девятом и т. д местах, заменить на буквы "а"

Question

Павлюся

20 марта, 03:29

+3

Ответы (1)

Знаете ответ?

Эннафа · Answer 1

Var s:string; i:integer;

begin

readln (s) ;

for i:=1 to length (s) div 3 do

s[i*3]:='a';

writeln (s)

end.

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