Помогите, пожалуйста!
1) Дано предложение. Переписать его справа налево.
2) В данном тексте найти утроенные буквы.
Заранее спасибо!)

1

Ответы и объяснения

2014-01-27T23:33:11+04:00
Var s,s1:string;
i:integer;
begin
read(s);
for i:=1 to length(s) do s1:=s1+s[i];{это вдругую сторону}
writeln(s1);
for i:=3  to length(s) do if (s[i]=s[i-1])and(s[i-1]=s[i-2]) then writeln(s[i]); {перебор букв}
end.
на паскале, должна пойти

там не нужна команда write после begin?
зачем?
write это когда надо вывести
спасибо)