Задание 7 Урок 9

Primary tabs

Submitted by Dobrii_kot on Wed, 09/09/2020 - 18:54

Forums:

Задание 7 Урок 9

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

var
    a,b,c,d : real;

begin
  write('Введите три числа через пробел и нажмите ENTER: ');
  readln(a,b,c,d);

  if (a > b) then
    if (a > c) then
      if (a > d) then
        write('Максимальное число - ', a:0:1)
      else
        write('Максимальное число - ', d:0:1)
    else
      if (c > d) then
        write('Максимальное число - ', c:0:1)
      else
        write('Максимальное число - ', d:0:1)
  else
    if (b > c) then
      if (b > d) then
        write('Максимальное число - ', b:0:1)
      else
        write('Максимальное число - ', d:0:1)
    else
      if (c > d) then
        write('Максимальное число - ', c:0:1)
      else
        write('Максимальное число - ', d:0:1);

  readln();
end.

Key Words for FKN + antitotal forum (CS VSU):

  • Log in to post comments
  • 2321 reads
vedro-compota's picture

vedro-compota

Wed, 09/09/2020 - 20:04

решение засчитано

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