Question

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

Answer 1

var a,b,c,d,j:integer;
begin
j:=0;
for a:=100 to 112 do
begin
b:=a div 10;
d:=a mod 10;
c:=a-(100*b)-d;
if (a div 2=a/2) or (b div 2=b/2) or (c div 2=c/2) then j:=j+1;
end;
writeln(j);
end.

это для pascalABC 

 

Answer 2

Program n1;
Uses CRT;
Var a,b,c,s,i: integer;
begin
ClrScr;
For i:=100 to 999 do
begin
a:=i div 100;
b:=i mod 100 div 10;
c:=i mod 10;
If (a mod 2=0)or(b mod 2=0)or(c mod 2=0) then s:=s+i;
end;
writeln('summa ravna ',s);
readln
end.

Answer 3

Вот решение на языке Python:

pythonCopy code
sum = 0

for i in range(100, 1000):
    digits = [int(d) for d in str(i)]  # преобразуем число в список цифр
    has_even_digit = False
    for d in digits:
        if d % 2 == 0:
            has_even_digit = True
            break
    if has_even_digit:
        sum += i

print(sum)

В этой программе мы сначала инициализируем переменную sum с нулевым значением. Затем мы используем цикл for для перебора всех трехзначных чисел (от 100 до 999). Для каждого числа мы проверяем, есть ли в нем четная цифра. Для этого мы сначала преобразуем число в список цифр с помощью функции str и int. Затем мы используем цикл for для перебора каждой цифры в списке и проверяем, делится ли она на 2 без остатка. Если нашли хотя бы одну четную цифру, то увеличиваем сумму на это число.

В конце программы мы выводим общую сумму всех трехзначных чисел, содержащих четные цифры.