Учеба и наука

• Всего ответов: 2


Лена
60-й в Технологиях
4.2 4 отзыва
Var
p:integer;
a,b,c:integer;
function min(a:integer;b:integer;c:integer):integer;
begin
  if((a<b)AND(a<c)) then min:=a;
  if((b<a)AND(b<c)) then min:=b;
  if((c<a)AND(c<b)) then min:=c;
end;

begin
write('Введите число a = ');
readln(a);

write('Введите число b = ');
readln(b);

write('Введите число c = ');
readln©;

p:=min(a,b,c);

writeln('Минимальный элемент p = ',p);
readln;
end.
декабрь 11, 2011 г.
Ответ понравился автору
Лучший ответ по мнению автора

Алексей Чудинов
10-й в Технологиях
4.9 23 отзыва
function min(a:integer;b:integer;c:integer):integer;
begin
  if(a<b) then
begin
if (a<c) then min:=a
else min:=c;
end
else 
if (b<c) then min:=b
else min:=c;
end; 
 
в три раза меньше вычислений.
декабрь 12, 2011 г.

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