1. Информатика
  2. Склавиатуры вводится целое

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

antonzagarinp00ule antonzagarinp00ule    3   27.05.2019 01:40    0

Ответы
MarryDied MarryDied  23.06.2020 18:20
Uses crt;
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
alinaalin2208 alinaalin2208  02.12.2020 12:49
Решить примеры в тетради (с ходом решеиния): 3 Кбайт=байт 64 Кбайт =Мбайт 16 бит =байт 8 байт =бита 40 Мбайт =байт 5 Гбайт =Мбайт...
dasha20079 dasha20079  30.04.2020 21:32
4. Запишите с отступами программу на Паскале: if x = 0 then if x 0 then write(1) else write(0) else write(-1); Что выведет эта программа при разных значениях x? при...
филькатв филькатв  30.04.2020 21:32
Інформатика 7 клас сделать формат таблицы...
Snegina85 Snegina85  30.04.2020 21:32
Ниже приведена программа, записанная на двух языках программирования. Было проведено 9 запусков программы, при которых в качестве значений переменных s и k вводились...
санду7 санду7  30.04.2020 21:32
Используя метод половинного деления, определи имеет ли уравнение y=−8x2+3,2x+7 корень на промежутке [−4, 4]1. Определи значение функции при x=−4, у1 = 2. Определи значение...
nyragka nyragka  20.05.2019 15:38
На рисунке справа схема дорог н-ского района изображена в виде графа в таблице содержатся сведения о длинах этих дорог. определите какова длина дороги из пункта в пункт...
хэюяфй хэюяфй  04.02.2022 09:36
Напишите программу, которая запрашивает у пользователя одно число. Если число положительное, то программа должна увеличить это же число в 3 раза. Если число отрицательное...
vladimir00041 vladimir00041  04.02.2022 09:40
2 Напиши, что получится в результате удаления букв. Слово: ИНФОРМАТИКА; Действия: Del, Del, Del: Результат Слово КОМПЬЮТЕР. Действия Backspace. Backspace Backspace:...
АртёмПестов АртёмПестов  04.02.2022 09:40
Напишите наименьшее целое число x,для которого истинно высказывание : НЕ (x 32) и (x 55)....
helljump helljump  15.12.2021 16:33
5)Алгоритм вычисления значения функции F(n), где n – целое число, задан следующими соотношениями: F(0) = 0 F(n) = 1, когда 1 ≤ n 3, F(n) = F(n - 1) + F(n - 2), когда...

Популярные вопросы