Pascal Урок 9 Задача 7 Решение
Primary tabs
Пользователь вводит четыре числа, найдите из них максимальное.
program U9Z7; var a,b,c,d:integer; begin writeln('Vedite chislo'); readln(a); writeln('Vedite chislo'); readln(b); writeln('Vedite chislo'); readln(c); writeln('Vedite chislo'); readln(d); if(a>b)then if(a>c)then if(a>d)then writeln('Bolshe ', a) else writeln('Bolshe ', d) else if(c>d)then writeln('Bolshe ', c) else writeln('Bolshe ', d) else if(b>c)then if(b>d)then writeln('Bolshe ', b) else writeln('Bolshe ', d) else if(c>d)then writeln('Bolshe ', c) else writeln('Bolshe ', d); readln(); end.
- Log in to post comments
- 1383 reads
vedro-compota
Mon, 02/24/2020 - 00:12
Permalink
решение засчитано, только
решение засчитано, только коммент должен быть что-то вроде:
а не "Больше"
_____________
матфак вгу и остальная классика =)