найти вторую цифру в целом положительном числе

[Dane4ka]

необходимо написать алгоритм и программу в Турбо Паскаль
1) найти вторую цифру в челом положительном числе
2) С клавиатуры вводится текст. Слова разделяются пробелом. Ввод текста прекращается после нажатия на клавивтуре точки. Посчитать количество знаков препинания в этом тексте.

ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО)))))

[Mad_Cat]

найти вторую цифру в челом положительном числе

слева?справа?

С клавиатуры вводится текст. Слова разделяются пробелом. Ввод текста прекращается после нажатия на клавивтуре точки. Посчитать количество знаков препинания в этом тексте.

count:=0;
Mn:=[',','!','?'];
repeat
read(c);
if c in Mn then count:=count+1;
until c='.';

[Hacker19_90]

1)

Read(chislo);
if chislo >= 10 then
begin
    Writeln ('Вторая цифра равна = ', (chislo mod 100) div 10);
end
else
    writeln ('Число мало');

[Dane4ka]

блин....еще бы понять всё это(((((((


почему если число меньше 10 то оно мало???????
разве не получится найти вторую цифру

[Alex11223]

почему если число меньше 10 то оно мало???????
разве не получится найти вторую цифру

Где вы собираетесь искать вторую цифру в "целом положительном" числе если оно меньше 10?

[Dane4ka]

простите,туплю)))))))

[Dane4ka]

Сообщение от Mad_Cat

count:=0;
Mn:=[',','!','?'];
repeat
read(c);
if c in Mn then count:=count+1;
until c='.';

можете объяснить?....
как вначале это будет выглядеть,как задать сам текст?
и в блок-схеме тоже непонятно как задать всё сначала