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

+ 0 -

Wwwmre

07 апр. 2015 г., 17:28:39 (9 лет назад)

program StrAngle;

var

a: integer;

begin

readln(a);

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

end;

+ 0 -

Eldar009

07 апр. 2015 г., 18:22:02 (9 лет назад)

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" обязательно нужно писать.