Ответ учителя по предмету Информатика
program pos;
var
s: string;
l: integer;
procedure PrintChar(n: integer);
var
sub: string;
begin
sub := Copy(s, n, 1);
write(sub);
if n <> 1 then
PrintChar(n — 1);
end;
begin
write(‘Введите слово: ‘);
readln(s);
l := Length(s);
PrintChar(l);
end.
Похожие вопросы от пользователей