Дано натуральное число. определить: б) сколько раз в нем встречается цифра, равная последней; в) количество четных цифр в нем. составное условие и более одного неполного условного оператора не использовать; г) сумму его цифр, больших пяти; д) произведение его цифр, больших семи; е) сколько раз в нем встречаются цифры "0" и "5". в паскале, не используя массивы
applevip
3
16.07.2019 21:30
6
Другие вопросы по теме Информатика
AZAZA2008
29.12.2020 11:47
kitsova
29.12.2020 11:45
кама148
10.03.2019 20:31
чулпан2008
30.09.2019 15:01
Maks2801
30.09.2019 15:01
1Маргарет1
30.09.2019 15:01
Shilork
05.05.2021 13:17
lalala106
22.10.2021 02:07
Алёна1570
22.10.2021 02:18
Lika8911
07.04.2020 15:00
Популярные вопросы
- Придумать рассказ на тему утро в осеннем лесу. опорные слова тихо, ни ветерка,...
2 - Исправить речевую ошибку комментируя этот текст, мне кажется, что автор любит...
1 - Будет ли сумма чисел 1+2++2005+2006+2007 делиться на 2007?...
2 - Вычитание дроби: пять девятых плюс три четвертых...
3 - ), добавляя по одному слову с каж дым вариантом корня. слова записываете . -бав-//-бавл-:...
1 - Почему у хищных животных обаяние развито лучше чем у травоядных...
2 - Континентальность климата в россии возрастает в направлении с: а. с севера на...
3 - Сколько памяти в кбайтах нужно для хранения 256-цветного растрового графического...
2 - Как построить параболу? y=2(x+4)^2-1...
2 - Найдите значение выражения. c: (318-(d+ если c=560, d=260...
1
Program p1;var a,b , b1,a1,k: integer;begin read(a);k:=1;b:=a mod 10;a1:=a div 10;while a1<>0 do beginb1:=a1 mod 10; if b1=b then k:=k+1;a1:=a1 div 10;end;write(k);end.