В пятизначном числе вычеркнуть цифры через одну, начиная вычеркивать первую слева. (Дано: 73942. Результат: 34) ПАСКАЛЬ
В пятизначном числе вычеркнуть цифры через одну, начиная вычеркивать первую слева. (Дано: 73942. Результат: 34)
ПАСКАЛЬ
Гость
Ответ(ы) на вопрос:
ГостьVar
A:integer;
Begin
WriteLn('Введите пятизначное число');
ReadLn(A);
WriteLn((A div 1000) mod 10,(A div 10) mod 10)
End.
Не нашли ответ?
Похожие вопросы