Решить по информатике в паскале! программа вычисления тангенса угла, заданного в градусах.

Var   r: real; begin   readln(r);   writeln(system.math.tan(r * pi / 180)); end.прости, не сразу догадался посмотреть в документация excel (.net тоже мелкомягкие разработали), оттого задержался с ответом

Var a: real; tg: real; begin readln(a); tg: =sin(a)/cos(a); writeln(tg); end.

Акод верный? судя по тому, что в условии цикла стоит знак < =, цикл будет работать до тех пор, пока i меньше или равно некоторого числа. то есть цикл должен остановиться, когда i станет больше выбранного числа (которое нужно поставить вместо многоточия). но в цикле стоит операция уменьшения параметра i. то есть i будет только уменьшаться! цикл будет бесконечным! пример 1: i: =5; while i< =4 do begin writeln(''); i: =i-1; end; цикл не сработает ни разу, т.к. условие с самого начала неверное! пример 2: i: =5; while i< =5 do begin writeln(''); i: =i-1; end; условие верное, программа "заходит в цикл", выполняет вывод текста, а затем уменьшает значение i на 1, т.е. i=4. далее идет автоматическая проверка условия цикла, и оно снова верное: 4< =5! идет снова выполнение всех операторов цикла, и опять уменьшение i на 1, то есть i=3. и снова условие цикла верное: 3< =5! и так далее. теперь каждое следующее значение параметра i меньше предыдущего, а значит, и условие цикла всегда верное! цикл никогда не остановится! пример 3: i: =5; while i< =6 do begin writeln(''); i: =i-1; end; и даже если вместо многоточия поставить число более 5, получим аналогичный результат: условие верное, программа "заходит в цикл", выполняет вывод текста, а затем уменьшает значение i на 1, т.е. i=5. далее идет автоматическая проверка условия цикла, и оно снова верное: 5< =5! идет снова выполнение всех операторов цикла, и опять уменьшение i на 1, то есть i=4. и снова условие цикла верное: 4< =5! и так далее. теперь каждое следующее значение параметра i меньше предыдущего, а значит, и условие цикла всегда верное! цикл никогда не остановится! возможно, ошибка в условии цикла? если записать while i > =3 то цикл сработает 3 раза: при i, равном 5, 4, 3. либо неверно указано действие в цикле: i: =i-1. если записать i: =i +1, а вместо многоточия поставить i< =7, то цикл также сработает ровно 3 раза, т.к. i будет менять свое значение 5, 6, 7.

Const   n = 50; // количество элементов массиваvar   a: array [1..n] of integer;   i, sum: integer;   cr: real; // среднее арифметическоеbegin   for i : = 3 to n do       a[i] : = random(1000);   // диапазон рандомных чисел   readln(a[1]);   // 1 элемент массива   readln(a[2]);   // 2 элемент массива   for i : = 1 to n do       sum : = sum + a[i];   cr : = sum / n;   writeln(a);   writeln(sum);   writeln(cr); end.