Var r:array[1..3,1..3] of integer;i,j,n,k,sum:integer; b:array[1..30]of integer;beginrandomize;writeln('Исходная матрица: ');for i:=1 to 3 dobeginfor j:=1 to 3 dobeginr[i,j]:=random(15)-5;write(r[i,j]:3);end;writeln;end;// cумма диагоналиwriteln;for i:=1 to 3 dobeginfor j:=1 to 3 dobeginif i=j then beginwrite(r[i,j]:3);sum:= sum + r[i,j];end elsewrite(' ':3);end;writeln;end;writeln(sum);end.
-7+N*(15+a)+23 = 1; -1+N*(22+b)-32 = -3
N*(15+a) = -15; N*(22+b) = 30
НОД(15,30) = 15
N=15: a=-16, b=-20
<span>77-1= 76\2=38 было в 5А классе</span>
begin
var n := ReadInteger('Укажи число оленей:');
var s := 0;
Writeln('Вводи количество косточек, попавших в каждого оленя');
for var i := 1 to n do
s += ReadInteger;
Writeln('Количество саженцев = ', s)
end.