(напишите программу которая преобразует угол из градусной меры в радианную. результат выводится на экран) в pascal abc

//pascalabc.net 3.0, сборка 1052 var   d: single; begin   write('введите угол в градусах: '); read(d);   writeln('угол в радианах: ',degtorad(d)) end. тестовое решение: введите угол в градусах: 57.3 угол в радианах: 1.00007364807695 вариант с формулой вместо функции: //pascalabc.net 3.0, сборка 1052 var   d: single; begin   write('введите угол в градусах: '); read(d);   writeln('угол в радианах: ',pi*d/180) end. вариант, если не хочется использовать константу pi: //pascalabc.net 3.0, сборка 1052 var   d: single; begin   write('введите угол в градусах: '); read(d);   writeln('угол в радианах: ',arctan(1)*d/45) end. вариант для тех, кто не помнит, что arctg(1)=π/4: //pascalabc.net 3.0, сборка 1052 const   pi=3.14; var   d: single; begin   write('введите угол в градусах: '); read(d);   writeln('угол в радианах: ',pi*d/180) end. тестовое решение для этого случая: введите угол в градусах: 57.3 угол в радианах: 0.999566653357612 как видно, из-за значения π, заданного с низкой точностью, снизилась и точность результата.

Var s: real; d: double; begin  read(s); d: = s*3.2425926/180; write(s,' градусов = ',d,' радиан'); end.

1января - 5 монет 2 января - 5 + 5*2 = 50 монет 3 января - 50 + 50*2 = 150 монет 4 января - 150 + 150*2 = 450 монет 5 января - 450 + 450*2 = 1350 монет 6 января - 1350 + 1350*2 = 4050 монет 7 января - 4050 + 4050*2 = 12 150 монет 8 января - 12150 + 12150*2 = 36 450 монет 9 января - 36 450 + 36 450*2 = 109 350 монет 10 января - 109 350 + 109 350*2 = 328 050 монет.