Pascal. Помогите решить.

Дано двухзначное число. Написать программу для определения: кратна ли сумма его цифр шести?

Question

Информатика

Виолетка

14 ноября, 20:35

Pascal. Помогите решить.

Дано двухзначное число. Написать программу для определения: кратна ли сумма его цифр шести?

+1

Ответы (1)

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

Феогност · Answer 1

Var b, a1, a2, S:integer;

Begin

readln (b) ; {вводим 2-ух значное число}

a1:=b div 10;

a2:=b mod 10;

S:=a1+a2;

if s mod 6=0 then writeln ('Кратно') else writeln ('не кратно') ;

readln;

end.

Pascal. Помогите решить.Дано двухзначное число. Написать программу для определения: кратна ли сумма его цифр шести?

Pascal. Помогите решить.

Дано двухзначное число. Написать программу для определения: кратна ли сумма его цифр шести?