Блок-схема - в прилагаемом файле. Программа: var s1,s2:string; i:integer; begin write('Введите слово: '); readln(s1); s2:=''; for i:=1 to length(s1) do s2:=s1[i]+s2; writeln('Слово в обратном порядке:'); writeln(s2); end.
Пример: Введите слово: program Слово в обратном порядке: margorp
1 votes Thanks 0
svprog
менее затратно по памяти и по времени, это идти до половины слова и менять местами первую и последнию букву
Answers & Comments
Verified answer
Блок-схема - в прилагаемом файле.Программа:
var s1,s2:string; i:integer;
begin
write('Введите слово: ');
readln(s1);
s2:='';
for i:=1 to length(s1) do s2:=s1[i]+s2;
writeln('Слово в обратном порядке:');
writeln(s2);
end.
Пример:
Введите слово: program
Слово в обратном порядке:
margorp