Информатика 9 класс. Турбо Паскаль.Дано три целых числа.Найти произведение максимального...

Question

Информатика 9 класс.
Турбо Паскаль.Дано три целых числа.Найти произведение максимального на минимальное.
Нужно составить формулу.
ПОМОГИТЕ ПОЖАЛУЙСТА :(

Answer 1

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<br>   else min:=b;
if cwriteln ('Произведение максимального на минимальное = ',max*min);
end.

Comments

Спасибо!