Дискуссионный математический форумМатематический форум
Математический форум Math Help Planet

Обсуждение и решение задач по математике, физике, химии, экономике

Теоретический раздел
Часовой пояс: UTC + 3 часа [ Летнее время ]
новый онлайн-сервис
число, сумма и дата прописью

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: Не могу найти ошибку в программе
СообщениеДобавлено: 10 фев 2017, 10:43 
Не в сети
Начинающий
Зарегистрирован:
14 дек 2016, 21:01
Сообщений: 3
Cпасибо сказано: 1
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
var a,b,c,d,f:integer;
begin
Writeln('Введите натуральное число:');
readln(a);
b:=10;
while b<=a do begin
b:=b*10;
while (c<=10) and (d<=10) do
c:=a div 10;
d:=a div b;
f:=a mod 10;
if c-d=0 then
writeln('Да');
if f-d=0 then
writeln('Да'); end;
else
begin
Writeln('Нет');
end.


Пишет: Встречено 'else', а ожидался оператор

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Не могу найти ошибку в программе
СообщениеДобавлено: 10 фев 2017, 13:19 
Не в сети
Последняя инстанция
Зарегистрирован:
08 апр 2015, 12:21
Сообщений: 7567
Cпасибо сказано: 229
Спасибо получено:
2751 раз в 2539 сообщениях
Очков репутации: 473

Добавить очки репутацииУменьшить очки репутации
Во-первых, перед [math]else[/math] не должно стоять точки с запятой (даже если она стоит в предшествующей строке).
Во-вторых, Вы закрыли раньше времени блок [math]while[/math] оператором [math]end[/math] сразу после конструкции [math]if[/math], не успев описать альтернативу [math]else \; writeln("HET");[/math]. Стоящий в конце [math]begin[/math] вообще не нужен.
В итоге должно быть:
................
if f-d=0 then
Writeln('Да')
else
Writeln('Нет');
end;
end.
Возможно, Вы хотели альтернативу условию цикла [math]while[/math], когда он не может выполняться в самый начальный момент. Тогда надо оформить печать "Нет" через соответствующий условный оператор [math]if[/math] сразу после [math]end[/math] блока [math]while[/math]. В этом случае конструкция [math]else[/math] не применяется.

Вернуться к началу
 Профиль  
Cпасибо сказано 
За это сообщение пользователю michel "Спасибо" сказали:
Turgenev1337
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему      Страница 1 из 1 [ Сообщений: 2 ]

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
Не могу найти ошибку

в форуме Дискретная математика, Теория множеств и Логика

Th1e4

1

323

24 дек 2016, 16:00

Не могу найти ошибку

в форуме Дифференциальное исчисление

Veinar

10

661

20 апр 2014, 16:45

Не могу найти ошибку в ДУ Бернулли

в форуме Дифференциальные и Интегральные уравнения

AlexOblom

3

748

17 авг 2018, 19:35

Не могу найти ошибку в суждениях

в форуме Алгебра

ghsrt

6

571

16 апр 2017, 00:14

Несостыковка. не могу найти ошибку

в форуме Комбинаторика и Теория вероятностей

Vlasovn109

4

606

15 фев 2017, 22:06

Реакция опор( не могу найти ошибку)

в форуме Специальные разделы

djeak11

1

429

22 сен 2016, 23:25

Не могу найти ошибку (интегрирование иррациональных ф-ий)

в форуме Интегральное исчисление

lina_06

1

152

09 апр 2022, 04:29

Не могу найти ошибку в модели Simulink

в форуме MATLAB

Elena1000

4

607

20 фев 2017, 14:11

Не могу найти ошибку при решении тройного интеграла

в форуме Интегральное исчисление

fffffffff

7

208

14 апр 2022, 10:03

Не могу найти ошибку (противоречие) в своих доказательствах

в форуме Начала анализа и Другие разделы школьной математики

K_A

2

337

14 фев 2019, 19:08


Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 13


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  

Яндекс.Метрика

Copyright © 2010-2023 MathHelpPlanet.com. All rights reserved