Размещено 4 года назад по предмету
Информатика
от Crocodile5115
Я написал код на Паскале, теперь требуют переписать её на С++, но этот язык я не знаю, а учить сейчас не вариант, до вечера надо скинуть. Помогите пж. Срочно!!!!!!
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.
2) var
numDel, i, j: longint;
d2: array[1..6] of longint;
begin
for i := 95632 to 95650 do begin
numDel := 0;
for j := 1 to i do begin
if (i mod j = 0) and (j mod 2 = 0) then begin
numDel := numDel + 1;
if numDel > 6 then break;
d2[numDel] := j;
end;
end;
if numDel = 6 then writeln(d2[1], ' ', d2[3], ' ', d2[5], ' ', d2[9], ' ', d2[15], ' ', d2[45]);
end;
end.
3) var
x, count, numDel, i, j: longint;
begin
count := 0;
for i := 245690 to 245756 do begin
count := count + 1;
numDel := 2;
for j := 2 to round(sqrt(i)) do begin
if i mod j = 0 then begin
numDel := numDel + 1;
if numDel > 2 then break;
end;
end;
if numDel = 2 then writeln(count, ' ', i);
end;
end.
Заранее спасибо)!!!