С клавиатуры вводится целое число N…

С клавиатуры вводится целое число N, найти произведение всех цифр этого числа, а также количество цифр больше 6

в избранное

alex99sd

03 августа 2022

Uses crt; var n,a,k,s: integer; beginreadln (n); a: =n; repeat; a: =n mod 10; s: =s+a; n: =n div 10; if a>6 then inc (k); until a=0; writeln (s); writeln (k); end.

пользователи выбрали этот ответ лучшим

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

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

Знаете другой ответ?

Задайте свой вопрос

ПОМОГИТЕ РЕШИИТЬ Однажды жители Лилипутии решили выяснить сколько необходимо слив чтобы уравновесить яблоко

Сколько школьных учебниках емкость 350 Кбайт можно разместить на трехдюймовойдискете?

Помогите пожалуйста. Даю много пунктов. Выполнить переводы: 3Кб=? Байт 4Мб=? Бит 16384 бит=? Байт 2048 байт=?

Что обеспечит самый оперативный доступ к информации о дате рождения человекаа) свидетельство о рожденииб) информация…?

В рулетке общее количество лунок равно…

Имя файлов имеяющая имя; контейнер для файлов

B результате применения маски были выбраны 4 файла: кит.doc, ответы.docx, doc13.doc, docx.doc Этомаска…

ВТОРОЙ РАЗ ПРОШУ, ПОМОГИТЕ! ПОЖАЛУЙСТА! ОЧЕНЬ НАДО!

27400

Алгебра

14822

Английский язык

14216

Биология

7369

Другой

720

18829

8304

15850

5255

11818

23332

15992

73118

8152

466

46271

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

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