Question

Даны 3 числа нужно найти их произведение чисел
​

Answer 1

я особо не пон, какие числа, но вот

Program DvachAnon;

var a,b,c,max:real;

begin  

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

 read(a);

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

 read(b);

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

 read(c);

 if a>b then

    max:=a

 else

    max:=b;

 if c>max then

     max:=c;

 write ('Произведениe двух наименьших из трех чисел: ',a*b*c/max);

end.

Answer 2

Ответ:

Program DvachAnon;

var a,b,c,max:real;

begin  

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

read(a);

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

read(b);

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

read(c);

if a>b then

   max:=a

else

   max:=b;

if c>max then

    max:=c;

write ('Произведениe двух наименьших из трех чисел: ',a*b*c/max);

end.

Объяснение: