Program Lab7;
uses crt;
var s,a,b,c,q1,q2,q3,q4:real;
procedure max1(g,h,j:real; var q1:real);

begin
if (a>b) and (a>c) then q1:=a else
if (b>a) and (b>c) then q1:=b else
q1:=c;
end;

procedure min1(g,h,j:real; q2:real );
begin
  if (a<b) and (a<c) then q2:=a else
  if (b<a) and (b<c) then q2:=b else
    q2:=c;
end;

procedure max2(h,j:real;var q3:real);
begin
if (b>c) then q3:=b else
q3:=c;
end;

procedure max3(g,h:real;var q4:real);
begin
if (b>a) then q4:=b else
q4:=a;
end;







begin
clrscr;
writeln ('‚ўҐ¤ЁвҐ §­ 祭Ёп ЇҐаҐ¬Ґ­­ле a,b,c');
write ('a = ');
readln (a);
write ('b = ');
readln (b);
write ('c= ');
readln (c);
max1(a,b,c,q1);
min1(a,b,c,q2)   ;
max2(b,c,q3)  ;
max3(a,b,q4);
write(q1,q2,q3,q4);
s:=(q1+q2)/(q3*q2*q4);
writeln ('‡­ 祭ЁҐ дг­ЄжЁЁ = ',s:2:5);
readln;
end.

.

Сообщение отредактировано: trew - 21.05.2008 4:25

устраивает

Хм... А что условие скрыто? Ты дай конкретно условие а то что ты написал мы посмотрим...

Да здесь и без условия видно..
Trew, посмотри внимательно на то, что успевает вывести тебе программа (alt+f5, если что) и поймешь, из-за чего возникает ошибка.. Потом посмотри на свой код и найди место, где ты не дописал замечательное слово из трех букв

я нашел все решил