юлькаL
Опубликовано 7 лет назад по предмету Информатика от юлькаL


Составить программу, которая будет определять развернутый или нет введенный пользователем угол. программа турбо паскаль

  1. Ответ
    Ответ дан Locke

    program StrAngle;

    var

    a: integer;

    begin

    readln(a);

    if a = 180 then writeln('YES') else writeln('NO');

    end;

  2. Ответ
    Ответ дан Lenysiya

    program E7;

    var x: integer;

    begin

    writeln('vvedite znachenie gradusnoi meri ugla');

    readln(x);

    if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

    readln;

    end.

     

    Если вы работаете в школе на программе FreePascal, то перед "end" можно "readln" не писать. Если же вы работаете на программе TurboPascal, "readln" перед "end" обязательно нужно писать.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц