uses Crt;
var a,a1:integer;
begin
clrscr;
readln(a);
a:=a div 10;
a1:=a mod 10;
writeln(a1);
readln;
end.
Похожие записи/страницы:
- Найти произведение цифр заданного целого четырехзначного числа - Pascal(Паскаль)
- Найти произведение цифр заданного целого четырехзначного числа - Pascal(Паскаль)
- Даны целые числа m и n. Определить, являются ли они делителями значения суммы первой и предпоследней цифры…
- Даны целые числа m и n. Определить, являются ли они делителями значения суммы первой и последней цифры заданного…
- Найти произведение цифр четырехзначного целого числа - Pascal(Паскаль)
- Присвоить целой переменной h третью от конца цифру в записи положительного числа k - Pascal(Паскаль)
- Переставить местами первую и последнюю цифру заданного натурального числа - Pascal(Паскаль)
- Найти произведение цифр заданного четырехзначного числа - Pascal(Паскаль)