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

Question

Информатика

Акланыш

23 апреля, 15:58

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

+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.