[Pascal ABC] Если максимальное значение из трёх введённых чисел больше 50, то найти произведение чисел, иначе - уменьшить каждое число в 2 раза.

[Supard]

Задание номер 1 на фото . Подскажите, где ошибка в программе . Заранее огромное спасибо !

[Вадим Мошев]

Вам надо искать максимальное значение из трёх введённых чисел, а вы в программе проверяете истинность того, что все три введённые числа больше 50.

Кстати, код надо выкладывать не виде фотографий, а в электронном виде. То есть, вам надо перепечатать этот код и опубликовать на форуме. Не забывайте его правильно форматировать согласно правилам. В том виде, в котором вы опубликовали - вам никто помогать не будет.

[Supard]

Если максимальное значение из трёх введённых чисел больше 50, то найти произведение чисел, иначе - уменьшить каждое число в 2 раза.

[Aleksandr H.]

Uses crt; 
var x,y,z,m:іnteger; 
functіon max(a,b,c:іnteger):іnteger;
begіn
  if a > b then max:=a
    else max:=b;
  if c > max then max:=c;

end;
begіn 
 wrіte('x='); 
 readln(x); 
 wrіte('y='); 
 readln(y); 
 wrіte('z='); 
 readln(z); 
 m:=max(x,y,z);
іf (m>50) then
  wrіteln(x*y*z); 
 else 
 begіn 
  x:=x/2; 
  y:=y/2; 
  z:=z/2; 
 end;
 wrіteln(x,' ',y,' ',z);
 readln; 
end.

[Serge_Bliznykov]

Сообщение от Supard

На фото задание номер 1

неужели два предложения сложно набрать?

Если максимальное значение из трёх введённых чисел больше 50, то найти произведение чисел, иначе - уменьшить каждое число в 2 раза.

Это сложно, да?
да и фотку, если уж размещаете, нужно предварительно повернуть, чтобы её читать нормально можно было.