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

ПолинаSweet11 ПолинаSweet11    2   24.09.2019 16:01    8

Ответы
anna0101rus anna0101rus  08.10.2020 15:45

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика