Ввести слово и вывести его в обратном порядке. + составить блок-схему(не обязательно, но...

Question

Ввести слово и вывести его в обратном порядке.
+ составить блок-схему(не обязательно, но желательно).

Comments

B программе Pascal.

Answer 1

Блок-схема - в прилагаемом файле.
Программа:
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

Comments

менее затратно по памяти и по времени, это идти до половины слова и менять местами первую и последнию букву

Answer 2

Program zadacha;
var slovo1,slovo2:string;
i:integer;
begin
write('Введите слово: ');
readln(slovo1);
slovo2:=' ';
for i:=1 to length(slovo1) do
 slovo2:=slovo1[i]+slovo2;
write('Слово в обратном порядке: ',slovo2);
end.