Задание 8 Урок 9
Primary tabs
Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:С использованием логической операции and.
С вложенными блоками (без and, все операторы if должны быть в полной форме).
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.
1 способ - С использованием логической операции and.
var a,b,c: integer; begin writeln (' vvedite chislo a'); readln (a); writeln (' vvedite chislo b'); readln (b); writeln (' vvedite chislo c'); readln (c); if (a>b) and (a>c) then writeln ('naibolshee chislo a') else if (b>a) and (b>c) then writeln ('naibolshee chislo b') else if (c>a) and (c>b) then writeln ('naibolshee chislo c') ; readln(); end.
Консоль:
vvedite chislo a 9 vvedite chislo b 16 vvedite chislo c 4 naibolshee chislo b
2 способ - С вложенными блоками (без and, все операторы if должны быть в полной форме).
var a,b,c: integer; begin writeln (' vvedite chislo a'); readln (a); writeln (' vvedite chislo b'); readln (b); writeln (' vvedite chislo c'); readln (c); if (a>b) then if (a>c) then writeln ('naibolshee chislo a') else if (b>c) then if (b>a) then writeln ('naibolshee chislo b') else if (c>b) then if (c>a) then writeln ('naibolshee chislo c') ; readln(); end.
Консоль:
vvedite chislo a 8 vvedite chislo b 4 vvedite chislo c 7 naibolshee chislo a
3 способ -Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной
var a,b,c,max: integer; begin writeln (' vvedite chislo a'); readln (a); writeln (' vvedite chislo b'); readln (b); writeln (' vvedite chislo c'); readln (c); if (a>b) then max:= a else max:= b; if ( max < c) then max:= c; writeln ('naibolshee chislo = ', max ); readln(); readln(); end.
Консоль:
vvedite chislo a 6 vvedite chislo b 3 vvedite chislo c 8 naibolshee chislo = 8
- Log in to post comments
- 223 reads