Решить в паскале : дано двузначное число, определить : а) кратно ли 3 сумма его цифр; б) кратно ли сумма его цифр числу a
Решить в паскале :
дано двузначное число,
определить :
а) кратно ли 3 сумма его цифр;
б) кратно ли сумма его цифр числу a
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы