tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
1.дано целое число а. определить
1.дано целое число а. определить количество цифр в числе, которые больше 6. 2.сумма в а руб. лежит на расчетном счету. на сумму начисляется в% каждый год прибыли. прибыль со счета не снимается. через сколько лет данная сумма удвоится.
nikita011278923
3 13.06.2019 09:40
2
Ответы
MASCAM
10.07.2020 13:20
Program zz;
var n,x,a:integer;
begin
readln(a);
while a>0 do
begin
x:=a mod 10;
if x<6 then n:=n+1;
a:=a div 10;
end;
writeln(n);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Sofi432432
04.08.2019 10:50
4примера по переводу чисел из одной системв в другую...
AlexSashka2003
14.03.2019 19:57
Ментальная карта: web 0.0; web 1.0; web 2.0; web 3.0; web 4.0...
Кирвалидзе
24.06.2019 09:40
Переведите число 1011010,1² в десятичную систему счисления...
цыпабезума
13.06.2019 19:10
Дана матрица размера m × n и целые числа k1 и k2 (1 ≤ k1 k2 ≤ m). поменять местами строки матрицы с номерами k1 и k2. решить в pascal. перед тем как выложить, проверить свое решение....
anyasannikova1
13.06.2019 19:10
Используя формулу хартли и электронные таблицы, определите кол-во информации в сообщениях о равновероятных событиях: 1. на шестигранном игральном кубике выпала цифра 3. 2. в следующем...
rimmabuketova
13.06.2019 19:10
Система подсистемы.удаление каких элементов из систем, к потере эфекта,те невозможности выполнения основного назначения систем(выделить существенные и несущественные) костюм- брюки-...
Лелечка43
16.02.2021 15:07
Арифметикалық амалдардың жазылу ережелері...
милана717
16.02.2021 15:07
5-тапсырма*. Шеңбердің радиусы берілген. Радиусты пайдаланып, шеңбердің ұзындығы (L) мен дөңгелектің ауданын (S) табатын про-грамма кодын құрастыр. Бұл жерде п= 3.14 (2-сурет).Теориялық...
danil200804
16.02.2021 15:08
Сформувати масив З 10 значень функції cos(x) де, х послідовні числа починаючи з 0 з кроком 0.2 обчислити різницю найбільшого і найменшого чисел . Програмування с++...
никита20029
16.02.2021 15:09
информатика 9 класс, Паскаль.. составить программу x=y+3 и y=x-1...
Популярные вопросы
Найти p δabc если ∠c = 90° ∠a = 30° bc = 10 см ca = 15 см...
2
По тридцать пять килограмм какой это член предложения и какой это падеж и.п. или...
1
Выберите верный вариант артиклей i prefer classical music to rock music a) the/the...
2
Какую массу сахара и какой объем воды надо взять для приготовления 50г 5%-ного раствора...
2
6.) соотнесите структуру и органоид клетки. ответ запишите в виде сочетания букв...
1
Подскажите орфограмму слов, слова: взглянул,взгялд,гядит,синь,синева,тихий,тихонько,лист,листочек,речка,река,бежать...
2
Сколько будет 8006*6030-2383 236\36+6893=...
1
Глагол работать-подобрать однокоренное слово имя существ....
1
Как от глагола сделать в существительное слово ночевать...
3
Определить спряжения глаголов греется,моется,режут,бьют,колотят,плачу,свистит,ломает,сбивает,поднимается,видишь,слышишь....
1
var n,x,a:integer;
begin
readln(a);
while a>0 do
begin
x:=a mod 10;
if x<6 then n:=n+1;
a:=a div 10;
end;
writeln(n);
end.