Задача 7 Урок 9

Primary tabs

Submitted by Ingvar on Tue, 07/27/2021 - 19:02

Forums:

http://fkn.ktu10.com/?q=node/8539
{Пользователь вводит четыре числа, найдите из них максимальное.}

 var a,b,c,d:integer; // переменные для хранения чисел которые будем сравнивать


begin
     writeln('Enter four numbers : a, b, c, d'); // числа которые вводит пользователь
     readln(a,b,c,d);

     if ((a > b) and (a > c) and (a > d) ) then
          writeln(a) // если (a > b) and (a > c) and (a > d)
     else if (b > c) then
          writeln(b) // если (b > a) and (b > c) and (b > d)
     else if (c > d) then
          writeln(c) // если (c > a) and (c > b) and (c > d)
     else
          writeln(d); // // если (d > a) and (d > b) and (d > c)

     readln();

end.
  • Log in to post comments
  • 2426 reads
vedro-compota's picture

vedro-compota

Thu, 07/29/2021 - 20:14

Проверить на наборе:

10  5  4  9

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

Ingvar

Fri, 07/30/2021 - 00:40

Результат в консоли при наборе: 10 5 4 9 

Enter four numbers : a, b, c, d
10 5 4 9
10
vedro-compota's picture

vedro-compota

Sun, 08/01/2021 - 12:30

Проверить на наборе:

7  5  4  9

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

Ingvar

Thu, 08/05/2021 - 17:40 

  var a,b,c,d:integer; // переменные для хранения чисел которые будем сравнивать

begin
     writeln('Enter four numbers : a, b, c, d'); // числа которые вводит пользователь
     readln(a,b,c,d);

     if ((a > b) and (a > c) and (a > d) ) then
          writeln(a) // если (a > b) and (a > c) and (a > d)
     else if (b > c) and (b > d) then
          writeln(b) // если (b > a) and (b > c) and (b > d)
     else if (c > d) then
          writeln(c) // если (c > a) and (c > b) and (c > d)
     else
          writeln(d); // // если (d > a) and (d > b) and (d > c)

     readln();

end.

Результат:

Enter four numbers : a, b, c, d
7 5 4 9
9
vedro-compota's picture

vedro-compota

Thu, 08/05/2021 - 19:31

переделать через вложенные условия

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