tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найдите произведение
Найдите произведение и количество цифр не кратных 5 в записи числа
RedGirl12
2 22.07.2019 13:30
0
Ответы
alenadevyataya
03.10.2020 10:56
Var n,p,k:integer;
begin
write('n = '); readln(n);
p:=1; k:=0;
while n>0 do
begin
if n mod 5 <> 0 then begin p:=p*(n mod 10); k:=k+1; end;
n:=n div 10;
end;
writeln('p = ',p,' k = ',k);
end.
Пример:
n = 3251046
p = 144 k = 5
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
elvin123451
31.03.2020 13:11
Условный оператор: if (x 3) then y:=x+9 else y:=x−22 . Выбери действие, которое будет выполняться в случае истинности условия: x 3 y:=x+9 y:=x−22...
kazD01
31.03.2020 13:07
Нарисовать блок-схему для программы с операторами if, then, elseНайти значение f, принимающей значения целоготипа:f:= 2·x-3/x, если f −2 или x 2,То вывести значение f, иначе х=х*3...
ЕлизаветаАлис
21.06.2020 11:34
Составьте алгоритмы рисования следующих рисунков с использованием Исполнителя ЧЕРЕПАХА В среде Кумир....
Dinadiamond
22.06.2020 11:52
Какое представление числа 0,342234Е-02 является верным: a) 0,00342234 b) 34,2234 c) 0,0342234...
lenatolkina
22.06.2020 11:57
Если скорость информационного потока 27 бит/с, то сколько потребуется времени для передачи информации объемом в 645 Кбайт....
1234567890djsbdnfkd
31.08.2019 13:30
Блок-схема вычисления длины окружности...
mcmorgana
31.08.2019 13:30
Дано трехзначное число. найти все трехзначные числа равные среднему арифметическому цифр данного числа.паскаль с употреблением подпрограмм....
lianadoschik12
26.09.2019 15:01
Назовите один из основных принципов unix-way 1 всё есть файл 2 множитель не равен делителю 3 42 не весь ответ 4 процесс работает в ядре...
Allery
26.09.2019 15:01
Исполнитель черепашка перемещается на экране компьютера, оставляя след в виде линии. в каждый конкретный момент известно положение исполнителя и направление его движения. у исполнителя...
Kristina17217
26.09.2019 15:01
C++. почему не подключается \\? я dev c++, когда пишу #include \\, возникает ошибка [error] bits/stdc++: no such file or directory...
Популярные вопросы
Как посчитать среднегодовую температуру воздуха? (по месяцам)...
2
Кто разбирается в матрицах судьбы расшифруйте...
2
мне нужно выполнить 8 задание >...
2
Задача: Используй таблицу, заполни пробелы в тексте задачи и реши её. Серёжа купил...
1
Найти напряжённость электростатического поля в середине расстояния между двумя находящимися...
2
Чем донос отличается от клеветы?...
3
12 По какому правилу собраны произведения в каждом столбце? Допол- ните каждый столбец...
3
Одно задание в закрепе(тема:вектора)...
2
Твир миниатюра Зимовый пейзаж...
2
3. Знайти значення одночлена 5х, якщо x = 0,2. а) 0,2; б) 2; в...
3
begin
write('n = '); readln(n);
p:=1; k:=0;
while n>0 do
begin
if n mod 5 <> 0 then begin p:=p*(n mod 10); k:=k+1; end;
n:=n div 10;
end;
writeln('p = ',p,' k = ',k);
end.
Пример:
n = 3251046
p = 144 k = 5