Var a,b,c,d,e: integer; begin writeln('введите четырехзначное число'); readln(a); b: = a div 10 div 10 div 10; c: = (b*10)-a div 10 div 10; d: = (*10+c)*100)) div 10; e: = (*10+c)*100)) mod 10; if (b = 0) or (c = 0) or (d = 0) or (e = 0) then writeln ('в этом числе есть 0') else writeln('в этом числе нет цифры 0'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
