НАПИШИТЕ КОД НА ПАСКАЛЕ вот код на питоне, кто может, перепишите его на паскале start, end = 586132, - id1765878120200601 от какатус 01.06.2020 20:00

Question

Информатика: НАПИШИТЕ КОД НА ПАСКАЛЕ вот код на питоне, кто может, перепишите его на паскале start, end = 586132, 586430 def allDivs( x ): divs = [1, x] d = 2 while d*d = x: if x % d == 0: divs.append( d ) if x // d d: divs.append( x//d ) d += 1 return sorted(divs) minDivs = [] maxDivs = [] for x in range( start, end+1 ): divs = allDivs( x ) if len(divs) = len(maxDivs): maxDivs = divs if len(divs) len(minDivs): minDivs = divs print( len(minDivs), minDivs[-1], minDivs[-2] ) print( len(maxDivs), maxDivs[-1], maxDivs[-2]

какатус · Accepted Answer

Program SumAndMul;

Uses Crt;

var a:array[1..10] of real;

i:integer;

sum,mul:longint;

begin

clrscr;

for i:=1 to 10 do

begin

write('Введите -', i,' число:' );

readln(a[i]);

end;

sum:=0;mul:=1;

for i:=1 to 10 do

begin

if (a[i]>0) then sum:=sum+a[i];

if (a[i]<0 ) then mul:=mul*a[i];

end;

writeln('Сумма положительных элементов: ',sum);

writeln('Произведение отрицательных элементов: ',mul);

readkey;

end.

MOGZ ответил