begin read(a); if (a > 99) and (a < 1000) then begin p := a div 100; v := a div 10 mod 10; t := a mod 10; if (p = 0) or (V = 0) or (t = 0) then if (p = 5) or (v = 5) or (t = 5) then writen('Есть 0 и 5') end else writen ('Нет 0 и 5')
Slavque
Конечно ошибка, сделай как я, через цикл, ибо у тебя проверяется 0, а если первое значение будет 5???? Тогда твой алгоритм летит.
Slavque
Ещё ошибка в регистре, напишу все буквы маленькими, вместо V большой поставь V маленькую, ну и вместо writeen напиши writeln, если я правильно помню.
Answers & Comments
Код испортился, поэтому кинул скрином, прости.
begin
read(a);
if (a > 99) and (a < 1000) then begin
p := a div 100;
v := a div 10 mod 10;
t := a mod 10;
if (p = 0) or (V = 0) or (t = 0) then
if (p = 5) or (v = 5) or (t = 5)
then writen('Есть 0 и 5') end
else writen ('Нет 0 и 5')
end.
else writeln('Число не Трехзначное');
end.