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