PROGRAM TREUG;
var a,b,c: integer;
begin
writeln ('Сторона 1=');
readln (a);
writeln ('Сторона 2=');
readln (b);
writeln ('Сторона 3=');
readln (c);
if ((a^2=b^2+c^2)or(b^2=a^2+c^2)or(c^2=a^2+b^2)) then
writeln ('треугольник прямоугольный');
else writeln ('треугольник не прямоугольный');
end.
Ответ: 5
В первый раз при прохождении цикла i = 0, затем проверяется верно ли, что i<2 (а это верно) и начинается выполние цикла, пока i<2.
После первой итерации:
i = 1
S = 1
После второй итерации:
i = 2
S = 5
Третья итерация не начнётся, т. к. i = 2, что не удовлетворяет условию цикла.
P. S. итерация - это один шаг в цикле
Ответ:
Выйди из Office Tab Center и попробуй зайти снова, если неполучится пепезапусти комп.
Сначала решим данное уравнение
, n∈Z
, n∈Z
_________________________________________________
Составим программу для решения данного уравнения
___________
Program n_1;
uses math;
var n:integer; x:real;
begin
for n:=-5 to 5 do writeln((power(-1, n)*arcsin(1/7)/2+PI*n/2)*180/PI:0:20);
end.
_________________________________________________
Значения грдусной меры углов выводятся с точностью до 20 знаков после запятой