Определить 3-ю цифру в записи 6-значного натурального числа. Для нахождения 3 цифры надо "отрезать" от числа последние 3 и первые 2 цифры Составить программу ,применяя операции div и mod. Помогите пожалуйста.
Var a,a1,a2: integer; begin writeln ('vvedi cislo'); read (a); a1:=a div 1000; a2:=a1 mod 10; writeln (a2); end.
спасибо)
у меня такой вопрос еще.Допустим дано число 698741 .Его писать надо в окно вывода после запуска программы?