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

Primary tabs

Submitted by alexander263 on Thu, 08/12/2021 - 20:15

Forums:

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

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

program Project1;
var firstNumb, secondNumb, thirdNumb, fourthNumb : integer;

begin
write('Vvedite pervoe chislo: '); readln(firstNumb);
write('Vvedite vtoroe chislo: '); readln(secondNumb);
write('Vvedite tret`e chislo: '); readln(thirdNumb);
write('Vvedite chetvertoe chislo: '); readln(fourthNumb);

if ((firstNumb>secondNumb) and (firstNumb>thirdNumb) and (firstNumb>fourthNumb)) then
     writeln('max chislo: ',firstNumb)
     else if ((secondNumb>firstNumb) and (secondNumb>thirdNumb) and (secondNumb>fourthNumb)) then
        writeln('max chislo: ',secondNumb)
     else if((thirdNumb>firstNumb) and (thirdNumb>secondNumb) and (thirdNumb>fourthNumb)) then
        writeln('max chislo: ',thirdNumb)
     else writeln('max chislo: ',fourthNumb);
readln();
end.
  • Log in to post comments
  • 611 reads
vedro-compota's picture

vedro-compota

Thu, 08/12/2021 - 21:13

сделать через вложенные if в полной форме

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