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

Question

Информатика

Митрофан

1 сентября, 02:40

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

+2

Ответы (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.