Задано число определить количество одинаковых цифр в нем (Паскаль и цикл while) 8 класс
sonya19970
3
17.01.2022 14:50
0
Другие вопросы по теме Информатика
Annpi
25.01.2021 20:02
ychviviv
25.01.2021 20:02
Alllllllex
25.01.2021 20:02
tizhurist
05.10.2019 19:30
basik100grn
05.10.2019 19:30
кейсикупер1
05.10.2019 19:30
yulaha3010oxppqh
05.10.2019 19:30
elizaveta08071999
05.10.2019 19:30
Mozgovoi1
05.10.2019 19:40
Популярные вопросы
- Составьте пары (магазины и то, что в их можно купить). 1. butcher’s 2....
3 - Мне только ответ Мне только ответ Мне только ответ Мне только ответ >...
3 - 19. Если стороны квадрата увеличиваются на 1/3, на сколько увеличилась...
3 - В ателье из 3,6 метров ткани сшили 9 близок . Сколько блузок сольют из...
3 - Англ яз 1 условная или вторая условная паст симпл скоро урок начнется можете...
3 - 15. Минивэн едет из города М в город N. Два города находятся на расстоянии...
1 - Укажите номер предложения, в котором придаточная часть присоединяется союзным...
3 - 1. Прочитайте предложения. Спишите предложения , расставляя недостающие...
3 - Найти наибольшую сторону прямоугольника площадью равной 24, если его меньшая...
1 - Обчислити інтеграл ∫01dx5x+3√...
1
program Hello;
var number,val:integer;
begin
readln(number);
readln(val);
while(number<>0)
do
begin
if number mod 10 = val then
begin
val:= val + 1;
end;
number:= number div 10;
end;
writeln(val);
end.