Паскаль

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

Question

Муша

16 февраля, 15:04

+1

Ответы (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.

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