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

ZhenyaKan11 ZhenyaKan11    2   17.07.2019 13:50    1

Ответы
Маргоритка11 Маргоритка11  03.10.2020 06:28
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.
ПОКАЗАТЬ ОТВЕТЫ
поолра поолра  03.10.2020 06:28
Var a : Integer;
Begin
  Readln(a);
  If (a mod 10 = 0) or (a div 10 mod 10=0) then Writeln('ноль есть') else Writeln('ноля нет');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика