var a,n:integer; begin write('Введите число: '); readln(n); repeat a:=n mod 10; n:=n div 10; until (n=0) or (a=5); if a=5 then write('В этом числе есть цифра 5') else write('В этом числе нет цифры пять') end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
