Найдите сумму самых больших нечетных делителей натуральных чисел от a до b. пример: при a = 3, b = 6 - id1032440620201013 от Princessa607 13.10.2020 10:40

Question

Информатика: Найдите сумму самых больших нечетных делителей натуральных чисел от a до b. пример: при a = 3, b = 6 (числа 3, 4, 5, 6), ответ равен 12 (3 + 1 + 5 + 3 = 12). формат входных данных два натуральных числа a, b. 1 6 a 6 b 6 109. формат выходных данных одно натуральное число – ответ на

Princessa607 · Accepted Answer

A) program a1; uses crt; var m:array[1..40]of integer; i:byte; a,ka:integer; begin clrscr; a:=0;ka:=0; for i:=1 to 40 do begin  m[i]:=random(21);  if m[i] mod 2 0 then  begin  ka:=ka+1;  a:=a+m[i];  end;  end; for i:=1 to 40 do  if i=1 then write( M[ ,m[i], , )   else  if i=40 then writeln(m[i], ] )   else  write(m[i], , ); writeln( Среднее арифметическое нечетных чисел= ,a/ka); end. b) program b1; uses crt; var m:array[1..40]of integer; i:byte; b:integer; begin clrscr; for i:=1 to 40 do begin  m[i]:=random(21);...

MOGZ ответил