Вводится трёхзначное целое положительное число . определить , есть ли среди его цыфра 0
Вводится трёхзначное целое положительное число . определить , есть ли среди его цыфра 0
Гость
Ответ(ы) на вопрос:
Гость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.
Гостьпрограмма во вложениях
Не нашли ответ?
Похожие вопросы