Ответы на вопрос:
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.
Популярно: Информатика
-
sergiu2107.12.2021 03:51
-
ГеральтИзРивии99913.12.2020 23:48
-
andrei82203.07.2020 11:26
-
evamakarova2023.10.2021 04:44
-
Данилкакрутой10.05.2022 21:36
-
миру321.10.2021 14:18
-
mariagrigoryan317.08.2021 05:25
-
marta456355609.02.2020 10:36
-
TyTToŪLLlkoJlbHuK10.02.2022 12:22
-
захар18821.07.2022 02:47