Question

Задача на языке Pascal:
дано число - 2852
вытащить из середины число 85 и 58
число 2852 дано целиком
то есть, const a = 2852;

Answer 1

a1:=a div 100
a2:=a div 10
writeln('85: 'a1,a2,' 58: 'a2,a1)

Answer 2

здесь неправильно