Предмет: Информатика, автор: sokirkin03

Прошу помощи по информатике. Требуется написать программу на паскале по этой формуле min (ab, ac, bc) (это нахождение наименьшего значения, как я понимаю). Прошу помочь (я гуманитарий).

Ответы

Автор ответа: wwwert1239

var a,b,c:integer;

begin

readln(a);readln(b);readln(c);

if (a*b < a*c)and (a*b < b*c)then

writeln(a*b)else

if (a*c < a*b)and (a*c < b*c)then

writeln(a*c)else writeln(b*c);

end.

sokirkin03: Выдаёт цифру 2, а не нужное мне выражение

wwwert1239: программа выдает минимальное произведение

wwwert1239: var a,b,c:integer;

begin

readln(a);readln(b);readln(c);

if (a*b < a*c)and (a*b < b*c)then

writeln(a,'*',b)else

if (a*c < a*b)and (a*c < b*c)then

writeln(a,'*',c)else writeln(b,'*',c);

end.

так надо?

sokirkin03: Вот ещё нужно. Дополнить программу следующим фрагментом. Определить, принадлежит ли вычисленное значение максимума (минимума) интервалу [0.5; 2.0] и выдать на экран соответствующее сообщение. Отладить и выполнить программу с произвольными значениями входных данных

wwwert1239: так максимума или минимума?

sokirkin03: минимума

wwwert1239: ок

wwwert1239: var
a, b, c: real;

begin

readln(a);readln(b);readln(c);

if (a * b < a * c) and (a * b < b * c) then
begin
writeln(a, '*', b);
if (a * b <= 2) and (a * b >= 0.5) then writeln('YES') else writeln('NO'); end
else
if (a * c < a * b) and (a * c < b * c) then
begin
writeln(a, '*', c);
if (a * c <= 2) and (a * c >= 0.5) then
writeln('YES') else writeln('NO'); end
else begin
writeln(b, '*', c);
if (b * c <= 2) and (b * c >= 0.5) then
writeln('YES') else writeln('NO'); end;
end.

wwwert1239: так?

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Математика, автор: playdimatv38

В коробке 32 карандаша, 3/8 из них не подточенны сколько не подточенных карандашей в коробке

6 лет назад

Предмет: Физика, автор: 999999976

5. В электрическую цепь 22 В включены резисторы с сопротивлениями 3 Ом (рис 2). Вычислите общее сопротивление участка цепи, силу тока и мощность третьего резистора. [4] R1 R3 R2 R4 рис 2

6 лет назад

Предмет: Английский язык, автор: amazingdiana645

Rewrite the sentences in the passive.

1.They need to plant more trees to save the forest.

ПОМОГИТЕ!!СРОЧНО!ДАМ 50 БАЛЛОВ!