Program fagasg;
var g,h: Real;
i: integer;
begin
g:=3;
h:=3;
For i:=2 to 10 do
begin
g:=g+i+1;
h:=g*h;
end;
Writeln(h);
<span>end. </span>
Var max,min,i,s:integer;
mas:array[1..25] of integer;
begin
randomize;
write('Введите диапазон: '); readln(max,min);
if(min>max) then begin
max:=max+min;
min:=max-min;
max:=max-min;
end;
for i:=1 to 25 do
mas[i] := min + random(max-min+1);
for i:=1 to 25 do begin
write(i,'-ый элемент: ',mas[i]);
if((mas[i] mod 5) = 2) then begin s:=s+1; writeln('+'); end
else writeln();
end;
write('Сумма элементов, которые при делении на 5 дают остаток 2: ',s);
end.
13,31,15,51,57,75,53,35,71,17,73,37.
Строка соответствует моему числу.
1) вниз, =В3 + С4
2) вправо, =G4*7+12
3) вправо, =3/Е6 - G2
4) вниз, =2,5 + M9
5) вниз - вправо, =В3 - Е4
6) вниз - вправо, =D7/С5
7) вправо, =$C2+6
8) вниз, =$C4-4
9) вниз - вправо, =$A$5+1
10) вправо, =В2/$D3
11) вниз, =D$1-3$B2
12) вниз, =$B$3+0,1*$C5
13) вправо, =E$6-$B$4
14) вниз - вправо, =B$2/C$6
15) вниз - вправо, =9+$C11
16) вниз, =$B7-6*$C4
17) вниз, =C7/2+B$7