Question

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

Answer 1

program StrAngle;

var

a: integer;

begin

readln(a);

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

end;

Answer 2

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