program raf105;
var a,b,c:integer;
begin
write('Введите 3 числа: ');
readln(a,b,c);
if (a<b) and (a<c)
then writeln('Произведение 2 наибольших чисел: ',b*c);
if (b<a) and (b<c)
then writeln('Произведение 2 наибольших чисел: ',a*c);
if (c<b) and (c<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)<>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
ПРОГРАММА по пунктам
Рисунок 1
(стрелка - вправо)
Программа Гусеница
Нач
сделай КВАДРАТ
сделай КВАДРАТ
шаг
шаг
кон
процедура КВАДРАТ
нач
шаг
шаг
поворот
шаг
шаг
шаг
поворот
поворот
поворот
шаг
шаг
поворот
поворот
поворот
шаг
шаг
шаг
поворот
кон