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.
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.