Задано число определить количество одинаковых цифр в нем (Паскаль и цикл while) 8 класс помогите пожалуйста, не разбираюсь в информатике
Ответы на вопрос
Ответил Ace333
0
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.
Новые вопросы
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.