Задание:
Составьте программу вычисления количеств трехзначных чисел, у которых сумма цифр является четнымчислом.
Решение:
var i1, i2, i3:1… 9; //Цифры трехзначного числа i, n: integer; //n — количество трехзначных чисел, у которых … begin n: =0; //Обнуляем счетчик for i: =100 to 999 do //Перебираем все трехзначные числа и считаем количество begin i1: =i div 100; i2: =(i mod 100) div 10; i3: =i mod 10; if (i1+i2+i3) mod 2=0 then n: =n+1; end; writeln ('Количество трехзначных чисел, у которых сумма цифр является четным числом равна: ', n); //Выводим количествоend. Если все правильно, отметь решение как лучшее)
Знаете другой ответ?