Программа: Вывести слово в обратном порядке

Задача: Дано слово. Вывести его буквы в обратном порядке.

PROGRAM slovo;
	USES crt;
	var str: string; x,i:integer;
BEGIN
	WriteLn('Введите любое слово: ');
	ReadLn(str);
	x:=length(str);
	for i:=x downto 1 do 
    Write(str[i]);
END.

Просмотрело: 2280

Возможно, Вы искали: