Pascal ABC
Составьте программу. С клавиатуры вводятся 3 числа. Найдите наибольшее по модулю.

Программа на PascalABC.NET:

var a, b, c, maxNum: real;
begin
  readln(a, b, c);
  maxNum := a;
  if abs(b) > abs(maxNum) then
    maxNum := b;
  if abs(c) > abs(maxNum) then
    maxNum := c;
  writeln(maxNum);
end.

Программа сравнивает не сами числа, а их модули. Например, если введены \(-10\), \(7\), \(3\), то наибольшее по модулю число — \(-10\), потому что \(|-10| = 10\).

0 0 Пожаловаться