Question

Написать программу на языке паскаль !!!!

Answer 1

Ответ:

program Ugly;

var u:integer;

begin

writeln('Программа определяет тип угла.');

writeln('Введите скольким градусам равен Ваш угол (диапазон от 0 до 360)');

readln(u);

write ('Угол равный ',u,' градусам является ');

if u = 90 then write ('прямым')

else if u<90 then write ('острым')

else write ('тупым')

end.