Const m=3; n=4;

var a:array[1 ... m, 1 ... n] of integer;

i, j:integer;

begin

for i:=1 to m do

for j:=1 to n do

begin

if odd (j) then a[i, j]:=i + (j-1) * m else a[i, j]:=j*m-i+1;

if j end;

end.

Замените odd на mod

Какое число будет напечатано в результате выполнения программы: var i, k: integer; function f (x: integer) : integer; var m: integer; begin if x < 10 then f : = x else begin m : = f (x div 10) ; if m < x mod 10 then f : = x mod 10 else f : = m; end;

Какие описания массивов являются правильными с точки зрения компилятора языка Pascal? var a1: array[-1000 ... 50] of integer; const m1 = 20; m2 = m1*100; var a6: array[m1 ... m2] of - 200 ... 200; var a2: array[200 ...

Program z17; const n = 60; var c: array [1 ... n] of integer; k, i:integer; Begin randomize; k:=0; for i:=1 to n do c: = random (21) - 10; if i mod 4 = 0 then if c=0 then k:=k+c[i]; end; end; end; writeln (k) ; end.

Uses crt; var n, s, s1, s2, k:integer; begin writeln ('Введите число: ') ; readln (n) ; s:=0; s1:=0; s2:=0; while n>0 do begin inc (k) ; if k mod 2 = 0 then begin s:=s+n mod 10; n:=n div 10; end else begin s1:=s1+n mod 10; n:=n div 10; end;

Здесь пишет что НОД=0, что не так const m: array [1 ... 4] of integer = (76, 126, 216, 252) ; var i, x, y, z: integer; procedure nod (a, b: integer; var c: integer) ; begin while ab do if a>b then a:=a-b else b:=b-a; c:=a end; begin x:=m[1];