переписать код из паскаля в с++ 1)
var
minNum, numDel, maxDel, n, m: longint;
begin
minNum := 48;
maxDel := 0;
for n := 568023 to 569230 do begin
numDel := 0;
for m := 1 to n do begin
if (n mod m = 0) then begin
numDel := numDel + 1;
end;
end;
if (numDel > maxDel) then begin
maxDel := numDel;
minNum := n;
end;
end;
writeln(maxDel, ' ', minNum);
end.

katyamosondz    1   21.12.2020 12:56    0