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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
