Question

Пусть дано натуральное число n, состоящее из шести цифр. Определите число сотен и тысяч в нем.

Answer 1

Var n:string;
begin
readln(n);
writeln('Число сотен: ',n[4]);
writeln('Число тысяч: ',n[3]);
end.