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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.