Uses Crt;
Const
N = 15;
M = 10;
Var
A:array[1..N,1..M] of real;
i,j:integer;
S3,S7:real;
Begin
Randomize;
ClrScr;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random*13;
Write(A[i,j]:6:3,' ')
End;
WriteLn
End;
S3:=0;
S7:=0;
For j:= 1 to M do
Begin
S3:=S3+A[3,j];
S7:=S7+A[7,j];
End;
WriteLn('S3 = ',S3:0:3);
WriteLn('S7 = ',S7:0:3);
if S3 > S7 then WriteLn('S3 > S7')
else if S3 < S7 then WriteLn('S3 < S7')
else WriteLn('S3 = S7');
ReadLn
End.
1) 0+2 = 2
2) 2-1 = 1
3) 2
4) 1+2 = 3
Значит наша диграмма должна состоять из частей подходящих под цифры-пропорции 2,1,2,3.
Под эти цифры полностью подходит диаграмма № 1 ( на фото не видно какой номер,но должно быть 1 :) ). В левом верхнем углу.
Var
m, n: integer;
begin
readln(m, n);
if (m mod n = 0) or (n mod m = 0) then
writeln(1)
else
begin
randomize;
writeln(random(50));
end;
<span>end.</span>
For(int i=50;i>1;i--)
{
if ((i % 2) >0 )
cout <<i<<";"<<endl;
}