MaryGaloyan
04.02.2023 10:28

Вводится трёхзначное целое положительное число . определить , есть ли среди его цыфра 0

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
samsamokruxa
01.10.2020 19:55
Var a,b1,b2,b3:integer;
begin 
Writeln('введи трёхзначное число'); 
readln(a); 
b1:=a mod 10; 
b2:=(a mod 100)div 10; 
b3:=a div 100; 
if (b1=0) or (b2=0) or (b3=0) then writeln('Среди цифр есть 0') 
                                            else writeln('среди цифр нет 0');     
end.   
0,0(0 оценок)
Ответ:
PhoenixStep
01.10.2020 19:55
Программа во вложениях
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота