c не равно d не равно e - Turbo Pascal

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

Здравствуйте. Помогите написать программу на Turbo Pascal условие. Даны числа c, d, e (c не равно d не равно e). или (c<>d<>e) Нужно найти какое из чисел является самым большим по модулю за ранее спасибо. вот что у меня получилось. А как сделать по модулю я не знаю
uses crt;
var
с,а,у:real;
Begin
clrscr;
Writeln ('Введите 3 числа');
Readln (с,d,e);
if (abs(d)>abs(c)) then c:=abs(d);
if (abs(e)>abs(c)) then c:=abs(e)
else
writeln ('Ответ:',c:2:2);
readkey;
end.


textual

Код к задаче: «c не равно d не равно e - Turbo Pascal»

var a,b,c:Integer;
function max_element:Integer;
begin
 if (Abs(b)>Abs(a)) then a:=b;
 if (Abs(c)>Abs(a)) then a:=c;
 max_element:=a;
end;
begin
repeat
  Write('Enter number_1 = ');Readln(a);
  Write('Enter number_2 = ');Readln(b);
  Write('Enter number_3 = ');Readln(c);
  until ((a<>b) and (a<>c) and (b<>c));
  Writeln('Answer = ',max_element);
readln;
end.
Эта работа вам не подошла?

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


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 3.500 из 5

Источник
Похожие ответы