text = "Программа! " # Переменная text Содержит строку "Программа! "
print(text [0:10]) # Индексирование каждого символа строки. [:] - Это срез. [0:10] - Вывести 10 символов - Целая строка, но только без пробела в конце строки, тк заданная команда выводит все символы строки (Если было бы [0:11] - то пробел конечно же был бы включен)
print(text [0:4]) # Вывести символы от индекса 0 - Это символ П, до индекса 4 - Это символ Р. Результат: Прог
print(text [-2]) # Отрицательное значение, обычно применяется для того, чтобы взять что-либо с конца строки, списка и т.п..
print(text [::3]) # Вывести каждый символ с чередованием 3 символа. Так скажем... Перешагнуть 2 символа, и уже 3й распечатать
var num,prev:integer;
begin
readln(num);
while num>0 do begin
prev:=num;
num:=num div 10;
end;
writeln(prev);
end.
Блок-схема описывается примерно так:
1. Получаем число
2. Отбрасываем одну его цифру
3. Если получили 0, то выводим то, что было до отбрасывания(переменная prev), иначе переходим к пункту 2.
Также не вполне честный, но тоже эффективный вариант:
var s:string;
begin
readln(s);
writeln(s[1]);
end.