Задача 8 Урок 9
Primary tabs
Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:1. С использованием логической операции and.
2. С вложенными блоками (без and, все операторы if должны быть в полной форме).
3. Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.
1 вариант:
var a,b,c:integer; begin writeln('Vvedite pervoe chislo: '); readln(a); writeln('Vvedite vtoroe chislo: '); readln(b); writeln('Vvedite tretye chislo: '); readln(c); if (a>b)and(a>c) then writeln(a,' - maksimalnoe chislo') else if (b>a)and(b>c) then writeln(b,' - maksimalnoe chislo') else writeln(c,' - maksimalnoe chislo'); readln(); end.
2 вариант:
var a,b,c:integer; begin writeln('Vvedite pervoe chislo: '); readln(a); writeln('Vvedite vtoroe chislo: '); readln(b); writeln('Vvedite tretye chislo: '); readln(c); if (a>b) then if (a>c) then writeln(a,' - maksimalnoe chislo') else writeln(c,' - maksimalnoe chislo') else if (b>c) then writeln(b,' - maksimalnoe chislo') else writeln(c,' - maksimalnoe chislo'); readln(); end.
3 вариант:
var a,b,c,max:integer; begin writeln('Vvedite pervoe chislo: '); readln(a); writeln('Vvedite vtoroe chislo: '); readln(b); writeln('Vvedite tretye chislo: '); readln(c); if a>b then max:=a else max:=b; if c>max then writeln(c,' - maksimalnoe chislo') else writeln(max,' - maksimalnoe chislo'); readln(); end.
Вид консоли при всех вариантах:
Vvedite pervoe chislo: 87 Vvedite vtoroe chislo: 35 Vvedite tretye chislo: 11 87 - maksimalnoe chislo
- Log in to post comments
- 482 reads