Вопрос по информатике:
Помогите решить..( програмирование)
Дано натуральное четырехзначное число. Найти произведение его второй и четвёртой цифры.( Pascal ABC)
Пожаловаться
- 17.06.2018 20:19
- Информатика
- remove_red_eye 10379
- thumb_up 11
Ответы и объяснения 1
Если считать цифры справа налево(в числе 1234, цифра 4 - первая):
Var
A:integer;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(A);
WriteLn(((A div 10) mod 10)*(A div 1000));
End.
Если считать слева направо(в числе 1234, цифра 1 - первая):
Var
A:integer;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(A);
WriteLn(((A div 100) mod 10)*(A mod 10));
End.
Var
A:integer;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(A);
WriteLn(((A div 10) mod 10)*(A div 1000));
End.
Если считать слева направо(в числе 1234, цифра 1 - первая):
Var
A:integer;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(A);
WriteLn(((A div 100) mod 10)*(A mod 10));
End.
Пожаловаться
- 18.06.2018 20:22
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы