Выдаёт ошибку в паскале

Выдаёт ошибку в паскале

  1. так поставь вместо . ;
  2. после предпоследнего end поставь точку с запятой.
  3. ссылка заблокирована по решению администрации проекта
  4. количество бегинов не совпадает с количеством эндов. И вообще, убери после ифа все бегины и энды (кроме конца программы) . Они в данном случае не нужны
  5. У вас слишком много ненужных конструкций begin-end, которые затрудняют понимание кода и в которых легко запутаться. В каждом if у вас идт только одна команда после проверки условия. В таком случае begin и end не нужны.

    if (t gt;= 5) and (t lt;= 11) then
    writeln(Доброе утро! )
    else if (t gt;= 12) and (t lt;= 16) then
    writeln(Добрый день! )
    else if (t gt;= 17) and (t lt;= 22) then
    writeln(Добрый вечер! )
    else if (t gt;= 23) and (t lt;= 4) then
    writeln(Доброй ночи! );

    Вместо нагромождений else-if разумнее использовать конструкцию case:

    case t of
    5..11 : writeln(Утро);
    12..16 : writeln(День);
    17..22 : writeln(Вечер);
    end;

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *