Задача ** языке Pascal: дано число - 2852 вытащить из середины число 85 и 58 число 2852...

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)

Comments

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