Помогите!проблема В Решении Простой Задачи

Тема в разделе "Pascal and Delphi", создана пользователем LamerOK, 5 окт 2012.

  1. LamerOK

    LamerOK Гость

    Я так сказать начинающий программист,точней школьник.Недавно только начал учить Pascal и тут напоролся на сложную для меня задачу. Нужно написать программу которая "гадает" по количеству лепестков ромашки.Я попытался написать эту программу и встретил проблему(см. ниже)Программу писал на TP

    uses Crt;
    var a : Integer;
    begin
    Clrscr;
    write('Vvedite koli4estvo lepestkov: ');
    read(a);
    if (a<1) or (a>5) THEN
    writeln ('Gde vu takie romashki videli?');
    readkey;
    end {Вот тут то и проблема, если не поставлю "." программа дальше не читается, если ";" выбивает ошибку что нужна ".". Может проблема и не в этой строке,в общем ПОМОГИТЕ)
    else
    if (a=4) or (a=2)
    writeln('Ne lubit...');
    readkey;
    end
    else
    writeln('Lubit!');
    readkey;
    end.
     
  2. Eleno4ka

    Eleno4ka Гость

    ты когда открыл первый if ты не написал begin ^_^
    if (a<1) or (a>5) THEN
    begin
    writeln ('Gde vu takie romashki videli?');
    readkey;
    end;

    вроде так
     
  3. LamerOK

    LamerOK Гость

    может это и правильно но надо тогда еще что то менять по тому что компилятор пишет 113 еррор перед else если писать "end;"
    (Описание ошибки 113
    Данный символ не может быть первым символом в операторе.)
     
  4. LamerOK

    LamerOK Гость

    Ну так кто-то поможет?
     
  5. LamerOK

    LamerOK Гость

    Угу, спасибо помогли , программисты ,сам додумался...
     
Загрузка...

Поделиться этой страницей