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

КанВул ты в вк есть ?

По условию дано именно число, а не строка. Но даже если и позволительно использовать строку, то цикл не нужен - достаточно использовать встроенную функцию POS: If POS('0',a)>0 then Writeln('ноль есть') else ...

Что ? я нечего не понял)))

Я комментарий оставлял для КанВула

Можно через POS, но только я писал для выполнения домашнего задания (он бы не смог объяснить учителю)

Какая бурная дискуссия по этой теме

))

всю ленту уведомлений мне запачкали

ну больше не буду... засим откланиваюсь

Если число заканчивается на 2 или 3, то исходное число умножить на число десятков в нем, если число единиц от 7 до 9, то из числа вычесть сумму цифр числа, в противном случае отбросить последнюю цифру. Помогите !! я создал вопрос тоже 30 баллов даю

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.

Var a : Integer;Begin  Readln(a);  If (a mod 10 = 0) or (a div 10 mod 10=0) then Writeln('ноль есть') else Writeln('ноля нет');end.