СРОЧНО В ПАСКАЛЕ!!!!!Сколько раз данная цифра встречается в данном числе решить с помощью repeat. 7 класс
Ответы
Ответ дал:
0
beginVar a:=ReadInteger('Введите число');Var b:=ReadInteger('Введите цифру ');Var c:integer;
Repeatif a mod 10=b then c+=1;a:=a div 10;until (a=0);print(c);end.
Repeatif a mod 10=b then c+=1;a:=a div 10;until (a=0);print(c);end.
Приложения:
Exiti:
PascalABC.NET
begin
Var a:=ReadInteger('Введите число');
Var b:=ReadInteger('Введите цифру ');
Var c:integer;
Repeat
if a mod 10=b then c+=1;
a:=a div 10;
until (a=0);
print(c);
end.
Var a:=ReadInteger('Введите число');
Var b:=ReadInteger('Введите цифру ');
Var c:integer;
Repeat
if a mod 10=b then c+=1;
a:=a div 10;
until (a=0);
print(c);
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад