Написать программу Паскаль) срочно!) Ввести с клавиатуры натуральное число.…

Question

33

Написать программу Паскаль) срочно!) Ввести с клавиатуры натуральное число. Написать программу, которая определяет, кратна ли сумма его цифр 6.

категория: информатика

ответить

в избранное ссылка

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

freaky81 · Accepted Answer

79

freaky81

26 февраля 2023

var a, sum: integer; begin readln (a); while a > 0 do begin sum: =sum+a mod 10; a: =a div 10 end; writeln ('Сумма цифр: ', sum); if (sum mod 6=0) then writeln ('Сумма цифр кратна 6') else writeln ('Сумма цифр не кратна 6'); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: