Ответ учителя по предмету Информатика
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.
Похожие вопросы от пользователей
a) Он был занят на прошлой неделе.
б) Они были в России в прошлом году.
в) Его не было в школе вчера.
г) Мне было 11 лет в прошлом году.
д) Она могла готовить два года назад.
е) Они могли играть в футбол в прошлом году.
пожалуйста
Передовой мною то золотым, то посеребрённым морем раскинулась спелая рожь.