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

Question

Информатика

Абдуссатар

6 мая, 05:14

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

+1

Ответы (1)

Знаете ответ на вопрос?

Ильхама · 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.