Ответы
Ответ дал:
1
Ответ:
var s:string;
begin
readln (s);
writeln (length(s));
write (s[5])
end.
или
var s:string;
begin
s:='qwertyuiop';
writeln (length(s));
write (s[5])
end.
Вас заинтересует
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад