Прокомментируйте код: var s: string; n, k: integer;
begin
writeln('Введи слово');
readln(s); n := length(s);
writeln('Последний символ - ',s[n]);
k := pos(s[n], s);
if k = n then
writeln('Символ один')
else
writeln('Символ с индексом ', k)
end.

Vlad8081    3   26.10.2020 22:11    0