Вчем ошибка? var a,b,h,y,x: real; m: integer; begin a: =pi/4; b: =pi/2; m: =10; h: =(b-a)/m; x: =a; - id457282720220513 от xXNASTYXx 13.05.2022 05:34

Question

Информатика: Вчем ошибка? var a,b,h,y,x: real; m: integer; begin a: =pi/4; b: =pi/2; m: =10; h: =(b-a)/m; x: =a; y: =cos(x)/sin(x); writeln( x= ,x, y= ,y); repeat x: =x+h; y: =cos(x)/sin(x); writeln( x= ,x, y= ,y); until x= b; end. выдает ошибку: undefined filename(0) : нельзя преобразовать тип keyvaluepair к boolean

xXNASTYXx · Accepted Answer

var  mas1, mas2: array[0..9] of integer;  t, k, i, j: integer;  begin   readln(t);   readln(k);   for j := 0 to 1 do  begin          if (j = 1) then writeln();                          for i := 0 to 9 do    begin                                 if(j = 0) then begin                                          mas1[i] := random(100);                                             write(mas1[i],  );                                            if mas1[i]  t Then mas1[i] := mas1[i] + 4;                    ...

MOGZ ответил