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

Primary tabs

Submitted by exotick777 on Sat, 08/07/2021 - 17:47

Forums:

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


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

var
  a,b,c,d,max:integer;
begin
  writeln('Vvedite a,b,c,d: ');
  readln(a,b,c,d);
  writeln();
  if (a > b) and (a > c) and (a > d) then
  max:=a;
  if (b > a) and (b > c) and (b > d) then
  max:=b;
  if (c > a) and (c > b) and (c > d) then
  max:=c
  else
  max:=d;
  writeln(max);
  readln();
end.
  • Log in to post comments
  • 1670 reads
vedro-compota's picture

vedro-compota

Sun, 08/08/2021 - 12:07

решите через вложенные if

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

exotick777

Sun, 08/08/2021 - 15:59

Исправлено 

var
  a,b,c,d,max:integer;
begin
  writeln('Vvedite a,b,c,d: ');
  readln(a,b,c,d);
  writeln();
   if (a > b) and (a > c) and (a > d) then
    max:=a
   else
    if (b > a) and (b > c) and (b > d) then
     max:=b
    else
      if (c > a) and (c > b) and (c > d) then
       max:=c
      else
       max:=d;
       writeln(max);
   readln();
end.