50 БАЛЛОВ!!!!!!!
Используйте оператор break или continue.
Определите, содержит ли данное целое число цифру 0.
Используйте оператор break или continue.
Определите, содержит ли данное целое число цифру 0.
More Questions From This User See All
Answers & Comments
//версия программы 1
begin
write ('0' in readstring('Введи число: '));
end.
//версия по "заданию"
begin
var x:=readinteger ('Введи число: ');
while x>0 do if (x mod 10)=0 then break else x:=x div 10;
if x=0 then write ('Не содержит') else write ('Содержит');
end.