ПЕ
Павел Ермачков
Дано натуральное число. Найти вторую (с начала) цифру данного число. нужно записать на Паскале.
Найти вторую (с начала) цифру данного число. нужно записать на Паскале.
Найти вторую (с начала) цифру данного число. нужно записать на Паскале.
var a:integer;
begin
readln(a);
while (a div 100)>0 do
a:=a div 10;
writeln(a mod 10);
end.