Определить 3-ю цифру в записи 6-значного натурального числа. Для нахождения 3 цифры надо "отрезать" от числа последние 3 и первые 2 цифры Составить программу ,применяя операции div и mod. Помогите пожалуйста.
Определить 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.
Не нашли ответ?
Похожие вопросы