Решить в паскале:

дано двузначное число,

определить:

а) кратно ли 3 сумма его цифр;

б) кратно ли сумма его цифр числу a

Question

Информатика

Феогност

16 июля, 13:15

Решить в паскале:

дано двузначное число,

определить:

а) кратно ли 3 сумма его цифр;

б) кратно ли сумма его цифр числу a

+3

Ответы (1)

Знаете ответ?

Манюра · Answer 1

Var a, c: integer;

begin

read (c, a) ;

if ((c mod 10 + c div 10) mod 3 = 0)

writeln ('кратно 3') ;

else

writeln ('не кратно 3') ;

if ((c mod 10 + c div 10) mod a = 0)

writeln ('кратно ', a) ;

else

writeln ('не кратно ', a) ;

end.

Решить в паскале:дано двузначное число,определить:а) кратно ли 3 сумма его цифр;б) кратно ли сумма его цифр числу a

Решить в паскале:

дано двузначное число,

определить:

а) кратно ли 3 сумма его цифр;

б) кратно ли сумма его цифр числу a