Написать программу, которая проверяет – имеется ли в записи натурального числа ноль. Язык программирования паскаль.
Написать программу, которая проверяет – имеется ли в записи натурального числа ноль.
Язык программирования паскаль.
Гость
Ответ(ы) на вопрос:
Гостьprogram red;
var a,b,c:integer;
begin
b:=0;
readln(a);
if a<10 then
begin
if a*5=0 then b:=1;
end;
if (a>=10) and (a<100) then
begin
if ((a div 10)*5=0) then b:=1;
if ((a mod 10)*5=0) then b:=1;
end;
if (a>=100) and (a<1000) then
begin
if ((a div 100)*5=0) then b:=1;
if (((a div 10) mod 10)*5=0)then b:=1;
if ((a mod 10)*5=0)then b:=1;
end;
if b=1 then writeln('yes') else writeln('no');
end.
Не нашли ответ?
Похожие вопросы