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

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

Question

Информатика

Алексаша

7 декабря, 01:51

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

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

+4

Ответы (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. Помогите решить.

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