Задача 8. Урок 9.
Primary tabs
Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:1. С использованием логической операции and.
2. С вложенными блоками (без and, все опараторы if должны быть в полной форме).
(Если не получается - см. разбор решения(link is external))
3. Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.
(Если не получается - см. разбор решения(link is external))
1.
var a, b, c: integer; // для целых чисел begin writeln('Vvedite chislo a: '); // вводим число "a" read(a); writeln('Vvedite chislo b: '); // вводим число "b" read(b); writeln('Vvedite chislo c: '); // вводим число "c" read(c); if (a>b) and (a>c) then writeln('Maksimalnoe chislo: ',a); // выводим максимальное число, если "a" if (b>c) and (b>a) then writeln ('Maksimalnoe chislo: ',b); // выводим максимальное число, если "b" if (c>a) and (c>b) then writeln ('Maksimalnoe chislo: ',c); // выводим максимальное число, если "c" readln(); readln(); end.
Консоль:
Vvedite chislo a: 10 Vvedite chislo b: 20 Vvedite chislo c: 30 Maksimalnoe chislo: 30
2.
var a, b, c: integer; // для целых чисел begin writeln('Vvedite chislo a: '); // вводим число "a" read(a); writeln('Vvedite chislo b: '); // вводим число "b" read(b); writeln('Vvedite chislo c: '); // вводим число "c" read(c); if (a>b) then if (a>c) then writeln('Maksimalnoe chislo: ',a) // выводим максимальное число, если "a" else writeln('Maksimalnoe chislo: ',c) // выводим максимальное число, если "c" else if (b>c) then writeln('Maksimalnoe chislo: ',b) // выводим максимальное число, если "b" else writeln('Maksimalnoe chislo: ',c); // выводим максимальное число, если "с" readln(); readln(); end.
Консоль:
Vvedite chislo a: 3 Vvedite chislo b: 2 Vvedite chislo c: 1 Maksimalnoe chislo: 3
3.
var a, b, c, max: integer; // для целых чисел begin writeln('Vvedite chislo a: '); // вводим число "a" read(a); writeln('Vvedite chislo b: '); // вводим число "b" read(b); writeln('Vvedite chislo c: '); // вводим число "c" read(c); if (a>b) then // если "a" больше "b max:=a // "a" максимум else max:=b; // иначе максимум "b" if (max<c) then // если максимум меньше "c" max:=c; // "с" максимум writeln('Maksimalnoe chislo: ',max); // выводим "Максимальное число" readln(); readln(); end.
Консоль:
Vvedite chislo a: 223 Vvedite chislo b: 500 Vvedite chislo c: 177 Maksimalnoe chislo: 500
- Log in to post comments
- 392 reads