Решение задачи 7 из главы 9

Primary tabs

Submitted by testok on Mon, 09/07/2020 - 23:30

Forums:

Решение задачи 7 из главы 9

7. Пользователь вводит четыре числа, найдите из них максимальное.

program Project7;
var A, B, C, D, maxA, maxB, maxC, maxTotal : integer;
begin
  writeln('Vvedite chetyre zelyh chisla:');
  read(A, B, C, D);
  if (A > B) then
     maxA := A
  else
      maxA := B;
  if (maxA > C) then
     maxB := maxA
  else
      maxB := C;
  if (maxB > D) then
     maxC := maxB
  else
      maxC := D;
  maxTotal := maxC;
  writeln('Maksimalnoe chislo: ', maxTotal);
  readln();readln();
end.
  • Log in to post comments
  • 2493 reads
vedro-compota's picture

vedro-compota

Sat, 09/12/2020 - 20:37

добавьте в комментах решение через вложенные операторы if

_____________
матфак вгу и остальная классика =)

testok

Mon, 09/14/2020 - 01:43 

program Project7;
var A, B, C, D: integer;

begin
  writeln('Vvedite chetyre zelyh chisla:');
  readln(A, B, C, D);
  if (A > B) then
     if (A > C) then
        if (A > D) then
           writeln('Maksimalnoe chislo: A')
        else
            writeln('Maksimalnoe chislo: D')
     else if (C > D) then
         writeln('Maksimalnoe chislo: C')
           else
              writeln('Maksimalnoe chislo: D')
  else if (B > C) then
       if (B > D) then
          writeln('Maksimalnoe chislo: B')
       else
           writeln('Maksimalnoe chislo: D')
  else if (C > D) then
     writeln('Maksimalnoe chislo: C')
       else
           writeln('Maksimalnoe chislo: D');

readln();
end.