Procedure sovp; var i, j, r, c: byte; ar: array[1..10, 1..10]of byte; s: array[1..4] of string; b: boolean; label l1; begin r := random(2, 3); l1: c := 1; b := false; for i := 1 to 10 do for j := 1 to 10 do begin ar[i, j] := random(0, 1); if(i < 5) then s[i] := ''; end; for i := 1 to 9 do begin for j := 1 to 10 do begin if(ar[i, j] <> ar[i + 1, j]) then b := true; end; if(b = false) then begin s[c] := i + ' строка совпалает с ' + (i + 1) + ' строкой'; c := c + 1; end; b := false; end; if(c <> r) then goto l1 else begin for var k := 1 to c do if(k<>c)then writeln(s[k]); for i := 1 to 10 do begin for j := 1 to 10 do write(ar[i, j], ' '); writeln; end; end; end; begin sovp; end.
1) program lineynoeuravnenie; var a, b: integer; x: real; begin writeln ('Введите коэффициенты a и b'); readln (a, b); x:=-b/a; write ('Решите уравнение', x); end.
2) program veschestvennoe; var a, b, c: integer; d, x1, x2: real; begin writeln ('Введите коэффициент a, b, c'); readln (a, b, c); if a=0 then begin x1:=-c/b; write ('Одно решение', x1), end; d=b*b-4*a*c; if d<0 then write ('Корней нет'); if d=0 then begin x1:=-b/(2*a); write ('Одно решение', x1); end; else begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); write (x1,'',x2); end; end.
11, 101, 101010, 101011, 111010
Объяснение: