Ввести целое число и найти сумму его цифр .проверить , если сумма цифр делится на 9 , сделать вывод число кратно 9 . в pascal . составьте полную программу со всеми обозначениями .

227

316

Посмотреть ответы 2

Ответы на вопрос:

Саша22877324516

Информатика

4,6(39 оценок)

Var n, s: integer begin write ('vvedite n'); readln (n); s : = 0; while n > 0 do begin n : = n mod 10; s : = s + 1; end writeln (s); if s mod 9 = 0 then writeln (n, 'kratno 9') else writeln (n, 'ne kratno 9'); end.

ruskei

Информатика

4,5(90 оценок)

1)пошук 2)опрацювання 3)збереження 4)передавання

Популярно: Информатика

Темы

Получить
полный доступ

150 000+ пользователей

Оформить подписку