Ответы
Ответ дал:
1
var str:string;
begin
write('Введите слово: ');
readln(str);
var reverse_str:= '';
if str.Length = 4 then begin
for var i:= str.Length downto 1 do
reverse_str:= reverse_str + str[i];
writeln(reverse_str);
end
else writeln('Слово состоит НЕ из 4 букв');
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад