Соколо стены наклонно стоит палка длиной x м. один ее конец находится на расстоянии y м от стены. определить значение угла  между палкой и полом для значений x=k м и y, изменяющегося от 2 до 3 метров с шагом h м.

Var x, h, y, alpha : real; begin   write('k = ');   read(x);   write('h = ');   read(h);   y : = 2;   while y < 3 + 1e-9 do   begin       writeln('y = ', y, ', alpha = ', arccos(y / x) * 180 / pi : 0 : 3);       y : = y + h;   end; end. пример работы программы: k = 5 h = 0.1 y = 2, alpha = 66.422 y = 2.1, alpha = 65.165 y = 2.2, alpha = 63.896 y = 2.3, alpha = 62.613 y = 2.4, alpha = 61.315 y = 2.5, alpha = 60.000 y = 2.6, alpha = 58.668 y = 2.7, alpha = 57.316 y = 2.8, alpha = 55.944 y = 2.9, alpha = 54.549 y = 3, alpha = 53.130

ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об а так например импорт-экспорт есть во многих прогах (оффис вот

 

иванов парикмахер, петров плотник, сидоров мельник, гришин почтальон, алексеев маляр.  и 2413      маляр 1

п   142     мельник 2

с   13     плотник 3

г 12      почта 4

а       парикмахер 5