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

Primary tabs

Submitted by Rus13 on Tue, 10/05/2021 - 21:45

Forums:

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

program Project1;
var a,b,c,d,max: integer;
begin
  writeln('vvedite chisla: ');
  readln(a,b,c,d);
    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>b)and(c>a)and(c>d) then max:=c;
    if (d>b)and(d>c)and(d>a) then max:=d;
    writeln ('maximalnoe chislo', ' ', max);
         readln();
       end.
  • Log in to post comments
  • 1006 reads
vedro-compota's picture

vedro-compota

Wed, 10/06/2021 - 12:13

решите через вложенные if в полной форме

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

Rus13

Thu, 10/07/2021 - 20:31

program Project1;
var a,b,c,d: integer;
begin
writeln('vvedite chisla: ');
readln(a,b,c,d);
if (a>b)then if(a>c)then if(a>d) then writeln ('maximalnoe chislo', ' ', a);
if (b>a)then if(b>c)then if(b>d) then writeln ('maximalnoe chislo', ' ', b);
if (c>b)then if(c>a)then if(c>d) then writeln ('maximalnoe chislo', ' ', c);
if (d>b)then if(d>c)then if(d>a) then writeln ('maximalnoe chislo', ' ', d);
readln();
end.