Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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 n<>1 then write(Нулей нет);
End.