Составьте программу вычисления суммы трехзначных чисел, в десятичной записи которых нет четных цифр - Turbo Pascal

Формулировка задачи:

Составьте программу вычисления суммы трехзначных чисел, в десятичной записи которых нет четных цифр

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

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 4.231 из 5


СДЕЛАЙТЕ РЕПОСТ