Склавиатуры вводится целое число n,найти произведение всех цифр этого числа,а также количество цифр больше 6
зулик3
2
27.05.2019 01:40
4
Другие вопросы по теме Информатика
ПОМОГИТЕ1111121
20.07.2019 06:10
Ульяна122004
18.01.2021 18:05
enzhedob
18.01.2021 18:05
archakova65
18.01.2021 18:05
05971vitaznadez
30.04.2020 09:14
DASHAMIronovAAA
30.04.2020 09:14
ramzinakadenbaeva
27.06.2019 14:10
kakniet
24.06.2019 06:20
bkmz987
27.10.2020 16:39
рвржвжчржч
27.10.2020 16:39
Популярные вопросы
- 2cosa+1 преобразовать в произведение...
2 - 1. Укажіть речення з одним головним членом:о Вишня губить листя на причілку...
2 - Реализовать функцию, которая получает на вход число и возвращает его в...
3 - у меня Сор 1)Упраститe выражение, найдите его значение. 7(x+5)-2(x-3)...
2 - Составте словасочитание с данным картинкам, испульзуя слова признаком...
2 - Чему равен радиус окружности если её беаметр равен 24 см...
1 - Салу есебі:c) a, bжәне сқабырғаларыбойынша үшбұрыш салыныз.d) салынған...
2 - 1ответьте на во выбрав один ответ из четырех предложенных. 1.Имена мальчиков...
3 - 2. Шеңберге іштей CВD теңбүйірлі үшбұрышы сызылған. Үшбұрыштың CD табанының...
3 - ОЧЕНЬ Заполните таблицу «Классификация стран по особенностям географического...
1
var n,a,k,s:integer;
begin
readln(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.