Задано число определить количество одинаковых цифр в нем (Паскаль и цикл while) 8 класс ПОМОГИТЕ ПОЖАЛУЙСТА
Ответы на вопрос
Ответил psnow10
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.
Ace333:
Согласен с решением
Новые вопросы
Окружающий мир,
2 года назад
Русский язык,
2 года назад
Физика,
7 лет назад
Математика,
8 лет назад
История,
8 лет назад