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

1.

program raf105;

var a,b,c:integer;

begin

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

readln(a,b,c);

if (alt;b) and (alt;c)

 then writeln('Творенье 2 наивеличайших чисел: ',b*c);

if (blt;a) and (blt;c)

 then writeln('Творение 2 наивеличайших чисел: ',a*c);

if (clt;b) and (clt;a)

 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)lt;gt;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)lt;gt;0)

     then b:= b+i;

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

b:= 0;

end;

end.

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