Если k> s > m > p, то числа оставить без изменения - Turbo Pascal

Формулировка задачи:

ребята, помогите плиз!(( Вводятся действительные числа k, s, m,p. Если k> s > m > p, то числа оставить без изменения, в противном случае каждое число заменить наибольшим из них.

Код к задаче: «Если k> s > m > p, то числа оставить без изменения - Turbo Pascal»

textual
var
  k,s,m,p,max: real;
begin
  write('Введите k, s, m, p: ');
  readln(k,s,m,p);
  max:=k;
  if s>max then max:=s;
  if m>max then max:=m;
  if p>max then max:=p;
  if not ((k>s) and (s>m) and (m>p)) then
  begin
    k:=max; s:=max; m:=max; p:=max;
  end;
  writeln('k = ',k,'; s = ',s,'; m = ',m,'; p = ',p);
  readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 4.333 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы