Var arr: array[1..4] of real; n: integer; sum, op: real; i: integer; begin for i:= 1 to 4 do arr[i]=i+ - id1793288320201110 от malenkayakreyz 10.11.2020 10:37

Question

Информатика: Var arr: array[1..4] of real; n: integer; sum, op: real; i: integer; begin for i:= 1 to 4 do arr[i]=i+ 3; Sum for i : = 1 to 4 do sum := sum + arr[i].; op := 1; for i:=1 to 4 do op := op arr[i]; writeln (sum, op); end. Что выведется на экране при запуске программы?​

malenkayakreyz · Accepted Answer

Var x,y,z,Ans:integer;     u:real; Begin   Write( Введите числа x,y,z: );   Readln(x,y,z);   Writeln( Что вычислить из числа ,x, ? );   Writeln( 1 - sin; 2 - cos; 3 - tg; );   Readln(Ans);     case Ans of     1: begin u:=sin(x); Writeln( sin( ,x, ) = ,u) end;     2: begin u:=cos(x); Writeln( cos( ,x, ) = ,u) end;     3: begin u:=tan(x);  Writeln( tg( ,x, ) = ,u) end;     else Writeln( Ошибка! )    end;   Writeln( Найти максимальное число из ряда ,u, , ,y, , ,z);   Writeln( Без модуля - 1; по модулю...

Var arr: array[1..4] of real;n: integer;sum, op: real;i: integer;beginfor i:= 1 to 4 doarr[i]=i+ 3;Sumfor i : = 1 to 4 dosum := sum + arr[i].;op := 1;for i:=1 to 4 doop := op arr[i];writeln (sum, op);end.Что выведется на экране при запуске программы?​

MOGZ ответил