Предмет: Информатика,
автор: masjfshp40308
Пользователь вводит трёхзначное число. Программа определяет, входят ли в него
цифры 0 и 5 одновременно.
Найдите ошибку плз
Ответы
Автор ответа:
0
Вариант через цикл.
Код испортился, поэтому кинул скрином, прости.
Код испортился, поэтому кинул скрином, прости.
Приложения:
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.
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', а ожидалось конец файла
Похожие вопросы
Предмет: Алгебра,
автор: samiramaly
Предмет: Литература,
автор: sasamakarov758
Предмет: История,
автор: aakiraan69
Предмет: Математика,
автор: спадосрдмадиал
Предмет: Математика,
автор: Dianulya1
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.