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; end else begin mas2[i] := random(100); write(mas2[i], ' '); if mas2[i] > 10 * K Then mas2[i] := mas2[i] + K; end; end; for i := 0 to 9 do if (j = 0) then write(mas1[i]) else write(mas2[i]); writeln(); end; readln(); end.
1
y=0*10=0
y=0+1=1
2
y=1*10=10
y=10+2=12
3
y=12*10=120
y=120+3=123
4
y=123*10=1230
y=1230+4=1234
ответ y = 1234
1
i=5-1=4
y=0+4*4=16
2
i=4-1=3
y=16+3*3=25
3
i=3-1=2
y=25+2*2=29
4
i=2-1=1
y=29+1*1=30
ответ y=30
Объяснение: