Информатика 9 класс. Турбо Паскаль.Дано три целых числа.Найти произведение максимального на минимальное. Нужно составить формулу. ПОМОГИТЕ ПОЖАЛУЙСТА :(
Answers & Comments
gerrsad
Var a,b,c,max,min:integer; begin read(a,b,c); if a=>b then max:=a else max:=b; if c>max then max:=c; if a<=b then min:=a else min:=b; if c<min then min:=c; writeln ('Произведение максимального на минимальное = ',max*min); end.
Answers & Comments
begin
read(a,b,c);
if a=>b then max:=a
else max:=b;
if c>max then max:=c;
if a<=b then min:=a
else min:=b;
if c<min then min:=c;
writeln ('Произведение максимального на минимальное = ',max*min);
end.