СОСТАВИТЬ в паскале ПРОГРАММУ ОСУЩЕСТВЛЯЮЩУЮ ПЕРЕВОД величин из радиан в градусы и наобоброт программа должна запрашивать какой перевод нужно осуществить и выполнять указанное действие
Var
choose:char;
x: real;
begin
writeln(Переводить в радианы(Р) или в градусы(Г)?);
readln(choose);
if choose = Р then
begin
write(Введите градусы: );
readln(x);
writeln(Радианы: , x*0.017);
end
else
if choose = Г then
begin
write(Введите радианы: );
readln(x);
writeln(Градусы: , x*57,3);
end
else
writeln(Переводить можно ТОЛЬКО в радианы(Р) или градусы(Г)!);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
