Информатики, помогите! Дано трехзначное число. Определить, если в нем нули.

Question

Информатика

Филимон

15 ноября, 18:12

Информатики, помогите! Дано трехзначное число. Определить, если в нем нули.

+3

Ответы (2)

Знаете ответ на вопрос?

Олегушка · Answer 1

Var

a:string;

i, n:integer;

Begin

Write ('Введите число ') ;

Readln (a) ;

for i: = 1 to 3 do

if a[i] = '0' then Begin write ('Ноль есть') ; n:=1; break; End;

if n1 then write ('Нулей нет') ;

End.

Юша · Answer 2

Var a : Integer;

Begin

Readln (a) ;

If (a mod 10 = 0) or (a div 10 mod 10=0) then Writeln ('ноль есть') else Writeln ('ноля нет') ;

end.