Question

Дано четырёхзначное число определить кратно ли четырём произведение его цифр

Answer 1

program tz;
var
a,b:integer;
i:byte;
begin
writeln('vvedite 4x znachnoe chislo');
readln(a);
b:=1;
for i:=1 to 4 do begin
    b:=b*(a mod 10);
    a:=a div 10
end;
if (b mod 4) = 0 then
   writeln(b,' Kratno 4')
else
    writeln(b,' Ne kratno 4');
readln;
end.

Answer 2

Чтобы определить, кратно ли четырём произведение цифр четырёхзначного числа, нужно выполнить следующие шаги:

1. Разложить четырёхзначное число на отдельные цифры.
2. Вычислить произведение всех цифр.
3. Проверить, является ли произведение кратным четырём.

Например, рассмотрим число 1234:

1. Разложим число на отдельные цифры: 1, 2, 3, 4.
2. Вычислим произведение всех цифр: 1 × 2 × 3 × 4 = 24.
3. Проверим, является ли произведение кратным четырём. Для этого нужно убедиться, что последние две цифры числа 24 равны нулю или образуют число, которое кратно четырём. В данном случае последние две цифры равны 24, что не является кратным четырём. Следовательно, число 1234 не кратно четырём произведению своих цифр.

Таким образом, для того чтобы определить, кратно ли четырём произведение цифр четырёхзначного числа, нужно разложить число на цифры, вычислить произведение всех цифр и проверить, является ли произведение кратным четырём.