tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано натуральное число. определить
Дано натуральное число. определить произведение его цифр больших 7
дизззи
2 09.07.2019 07:30
0
Ответы
Mihailkim2018
31.07.2020 09:58
Var a,b,i,bug:integer;
s:string;
begin;
readln(a);
str(a,s);
b:=1;
for i:=1 to length(s) do
begin;
val(s[i],a,bug);
if a>7 then b:=b*a;
end;
writeln(b);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
vikulyagorobet
07.04.2020 14:54
ЕГЭ по информатике 6 задание...
nikitashilo
15.07.2019 03:20
Определите значение переменной f после выполнения фрагмента алгоритма f: =0 нц для i от 1 до 5 f: =f+i *i кц...
andrejpyankoff
25.05.2019 05:20
Имя обозначающее множество обьектов...
166niko
12.05.2020 10:19
Құрал саймандардың дұрыс атауын теріп жазыңыз . Басу/тарту. Менің артымнан жүр . Контур . Таңдау.Өшіргіштер . Доға .Палитра .Сахнаның көрінісін айналдыру .Лупа .Сызық. Айналу...
Maria590986
12.05.2020 10:19
Для чего применяется флэш-накопители? а) для временного хранения данных б) для однократной записи данных в) для многократной записи и хранения данных г) для постоянного...
Оалдв
12.05.2020 10:19
Инструмент, расположенный в первой группе элементов управления, называется:...
strakh1991
12.05.2020 10:18
Опишите понятия гиперссылка *...
angelikasolnce
12.05.2020 10:18
Из имеющихся блоков разработайте скрипт. Определите по скрипту получающуюся фигуру. ответ записываете в строчку через запятую в виде набора цифр без пробела и слова (например,...
yanashabanova1
12.05.2020 10:18
с информатокой, хоть что нибудь...
Gelua2128
30.09.2019 09:10
Выполните перевод чисел из десятичной системы в восьмеричную и наоборот 31146 8 и 1248 10...
Популярные вопросы
Рассказ о приеме пищи в течение дня....
2
Какая полость тела у иглокожих и хордовых....
3
Составь уравнение реакции с которых можно осуществить следующие превращения;...
2
Решить! в какой подобраны числа 5-25, 5-10,...
2
Треба написати: кодекс честі справжнього козака...
1
Вычислите массовую долю элемента h3po4...
3
Сколько цинка будет реагировать в избытке соляной кислоты, чтобы получить...
3
Что именно можно было узнать про россию из рассказа тургенева бежин луг...
2
Тепловая машина с кпд 40% за цикл работы получает от нагревателя количество...
1
Ежедневно мы сталкиваемся с такими простыми : сначала чай или кофе нужно...
2
s:string;
begin;
readln(a);
str(a,s);
b:=1;
for i:=1 to length(s) do
begin;
val(s[i],a,bug);
if a>7 then b:=b*a;
end;
writeln(b);
end.