Цикл с постусловием. подсчитать кол-во цифр в введеном с клавиатуры числе х кол-во троек. составить блок схему и программу
bellanik2p06zxf
1
18.05.2019 21:30
0
Другие вопросы по теме Информатика
DjDenZzz
09.09.2019 07:50
Y563280
09.09.2019 07:50
7fan7
09.09.2019 07:50
ulyanae17
17.10.2019 07:52
kristinaalekse1
17.10.2019 07:55
mashcolor
17.10.2019 07:59
mashamariya11111
24.11.2020 17:10
1207malinap0c23p
24.11.2020 17:10
Популярные вопросы
- Решите столиком пример : 1.234*2007...
3 - Диагонали ровнобочной трапеции делят среднюю линию на три равных отрезка....
3 - Какое количество теплоты выделится в процессе конденсации водяного пара массой...
3 - Заменить одним словом синонимом с ь или ъ.1 вход в здание.2 пригодный для...
3 - Все заготовит, закупит( главные члены предложения)...
2 - Составить кроссворд из несклоняемых имён существительных....
2 - Составьте предложения по схеме 258...
1 - Савтостанции одновременно выехали в противоположных направлениях грузовая...
1 - Подготовьте небольшое сообщение о какой-либо болезни, вызванной бактерией...
1 - Очём вы задумались читая произведение кавказский пленник...
1
var
x, count:integer;
begin
write('x = '); readln(x);
write('Количество троек в числе ', x, ' - ');
while x > 0 do
begin
if x mod 10 = 3 then
count := count + 1;
x := x div 10;
end;
writeln(count);
end.