Пользователь вводит трёхзначное число. Программа определяет, входят ли в него цифры 0 и 5...

Question

Пользователь вводит трёхзначное число. Программа определяет, входят ли в него
цифры 0 и 5 одновременно.

Comments

var a, p, v,t: integer; 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.

---

Найдите ошибку плз

Answer 1

Вариант через цикл.
Код испортился, поэтому кинул скрином, прости.

---

Comments

a, p, v,t: integer;

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.

---

У меня просто здесь находит ошибку...

---

Конечно ошибка, сделай как я, через цикл, ибо у тебя проверяется 0, а если первое значение будет 5???? Тогда твой алгоритм летит.

---

Ещё ошибка в регистре, напишу все буквы маленькими, вместо V большой поставь V маленькую, ну и вместо writeen напиши writeln, если я правильно помню.

---

Он на это отвечает

---

Program1.pas(15) : Встречено 'else', а ожидалось конец файла