Составьте программу вычисления суммы трехзначных чисел, в десятичной записи которых нет четных цифр - 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.

Объяснение кода листинга программы

  1. В начале объявляются переменные i и s типа integer и longint соответственно.
  2. Затем идет цикл for, который проходит по числам от 100 до 999.
  3. Внутри цикла проверяется условие:
    • Если число имеет три цифры и в последней цифре нет четного числа (проверка ((i mod 10) mod 2 <> 0)),
    • И если число, разделенное на 10, также не имеет четного числа в последней цифре (проверка ((i div 10) mod 10) mod 2 <> 0)),
    • И если число, разделенное на 100, также не имеет четного числа в последней цифре (проверка ((i div 100) mod 2 <> 0)).
  4. Если условие выполняется, то число записывается в переменную i, а сумма s увеличивается на это число.
  5. После завершения цикла выводится сообщение о сумме, которая сохранена в переменной s.
  6. Затем программа просит пользователя ввести что-либо для чтения, и после этого выводится сообщение о том, что чтение было успешно завершено.

Оцени полезность:

13   голосов , оценка 4.231 из 5
Похожие ответы