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

@Nastya99 · Регистрация: 29.01.2013

Студворк — интернет-сервис помощи студентам

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

@GggDrej · 29.01.2013, 20:05

Pascal

uses crt;
var a,b,c,max:real;
begin
 write ('Введите 3 числа: '); readln(a,b,c);
 if a>b then max:=a
 else max:=b;
 if c>max then max:=c;
 write (' произведениe двух наименьших из трех чисел: ',a*b*c/max);
end.

@Nastya99 0 / 0 / 0 Регистрация: 29.01.2013 Сообщений: 23
		1
	Составте программу нахождения произведения двух наименьших из трех различных чисел 29.01.2013, 18:57. Показов 10880. Ответов 1 Метки нет (Все метки) Составить программу нахождения произведения двух наименьших из трех различных чисел. 0

	29.01.2013, 20:05

Опции темы

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

Решение