Дано четырехзначное число. Определить, кратна ли трем сумма его цифр. Написать программу в паскале. Не используя массивы и циклы.
Дано четырехзначное число. Определить, кратна ли трем сумма его цифр. Написать программу в паскале. Не используя массивы и циклы.
Гость
Ответ(ы) на вопрос:
Гостьvar s, a: integer;
begin
readln (a);
s:=adiv1000+adiv100mod10+amod100div10 + amod10;
if s mod 3=0 then writeln ('сумма кратна 3') else
writeln ('сумма не кратна 3');
end.
Не нашли ответ?
Похожие вопросы