Pascal Урок 9 Задача 6 Решение
Primary tabs
Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:*С использованием логической операции and.
*С вложенными блоками (без and).
*Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.
program U9Z6H1; var a,b,c: integer; begin writeln('vedite chislo'); readln(a); writeln('vedite chislo'); readln(b); writeln('vedite chislo'); readln(c); if(a>b)and(a>c)then writeln('pervoe chislo bolshe ', a); if(b>a)and(b>c)then writeln('vtoroe chislo bolshe ', b); if(c>a)and(c>b)then writeln('trete chislo bolshe ', c); readln(); end. program U9Z6H2; var a,b,c:integer; begin writeln('Vedite chislo'); readln(a); writeln('Vedite chislo'); readln(b); writeln('Vedite chislo'); readln(c); if(a>b)then if(a>c)then writeln('Pervoe chislo bolshe', a) else writeln('trete chislo bolshe ', c) else if(b>c)then writeln('vtoroe chislo bolshe ', b) else writeln('trete chislo bolshe ', c); readln(); end. program U9Z6H3; var a,b,c,d: integer; begin writeln('vedite chislo'); readln(a); writeln('vedite chislo'); readln(b); writeln('vedite chislo'); readln(c); if (a>b) then d:=a else d:=b; if (c>d) then d:=c; writeln('Maks chislo ', d); readln(); end.
- Log in to post comments
- 2920 reads
vedro-compota
Sun, 02/23/2020 - 12:23
Permalink
форматирование
Третья программа (program U9Z6H3;) отформатирована неправильно
_____________
матфак вгу и остальная классика =)
JimATI
Sun, 02/23/2020 - 13:59
Permalink
Исправлено
Исправлено
vedro-compota
Wed, 02/26/2020 - 19:33
Permalink
все равно не правильно
все равно не правильно
_____________
матфак вгу и остальная классика =)