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

Question

Информатика

Лела

21 ноября, 10:09

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

+5

Ответы (2)

Знаете ответ?

Кося · Answer 1

Var a : Integer;

Begin

Readln (a) ;

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

end.

Таюха · Answer 2

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.