Pascal. 1. Составить программу нахождения произведения двух наибольших из трех введенных...

Question

Pascal. 1. Составить программу нахождения произведения двух наибольших из трех введенных с клавиатуры чисел. 2. а) Найти сумму нечетных делителей натурального числа. б) Для каждого числа от А до В найти сумму его нечетных делителей.

Answer 1

1.

program raf105;

var a,b,c:integer;

begin

write('Введите 3 числа: ');

readln(a,b,c);

if (a  then writeln('Произведение 2 наибольших чисел: ',b*c);

if (b

 then writeln('Произведение 2 наибольших чисел: ',a*c);

if (c  then writeln('Произведение 2 наибольших чисел: ',b*a);

end.

2.

а)

program raf105;

var a,i,b:integer;

begin

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

readln(a);

for i:=1 to a do

 if ((a mod i)=0) and ((i mod 2)<>0)

   then b:= b+i;

writeln('Сумма нечётных делителей введённого числа: ',b);

end.

б)

program raf105;

var a,a2,i,j,b:integer;

begin

write('Введите меньшее число: ');

readln(a);

write('Введите большее число: ');

readln(a2);

for j:=a to a2 do

begin

 for i:=1 to j do

   if ((j mod i)=0) and ((i mod 2)<>0)

     then b:= b+i;

writeln('Сумма нечётных делителей числа ',j,' равна: ',b);

b:= 0;

end;

end.

Язык программирования PascalABC