Составьте программу вычисления суммы трехзначных чисел, в десятичной записи которых нет четных цифр - Turbo Pascal
Формулировка задачи:
Составьте программу вычисления суммы трехзначных чисел, в десятичной записи которых нет четных цифр
Решение задачи: «Составьте программу вычисления суммы трехзначных чисел, в десятичной записи которых нет четных цифр»
textual
Листинг программы
var i : integer; s : longint; begin for i := 100 to 999 do if ((i mod 10) mod 2 <> 0) and (((i div 10) mod 10) mod 2 <> 0 ) and ((i div 100) mod 2 <> 0) then begin write(i:5); s := s + i end; writeln; writeln('сумма: ', s); readln end.
Объяснение кода листинга программы
- В начале объявляются переменные i и s типа integer и longint соответственно.
- Затем идет цикл for, который проходит по числам от 100 до 999.
- Внутри цикла проверяется условие:
- Если число имеет три цифры и в последней цифре нет четного числа (проверка ((i mod 10) mod 2 <> 0)),
- И если число, разделенное на 10, также не имеет четного числа в последней цифре (проверка ((i div 10) mod 10) mod 2 <> 0)),
- И если число, разделенное на 100, также не имеет четного числа в последней цифре (проверка ((i div 100) mod 2 <> 0)).
- Если условие выполняется, то число записывается в переменную i, а сумма s увеличивается на это число.
- После завершения цикла выводится сообщение о сумме, которая сохранена в переменной s.
- Затем программа просит пользователя ввести что-либо для чтения, и после этого выводится сообщение о том, что чтение было успешно завершено.