Var a, b, c, rez: real; begin write('введите число а: '); readln(a); write('введите число b: '); readln(b); write('введите число c: '); readln(c); if (a > = 0) and (b > = 0) and (c > = 0) then rez : = a + b + c; if (a > = 0) and (b > = 0) then rez : = a + b; if (a > = 0) and (c > = 0) then rez : = a + c; if (b > = 0) and (c > = 0) then rez : = b + c; if (a < = 0) and (b < = 0) then rez : = c; if (b < = 0) and (c < = 0) then rez : = a; if (a < = 0) and (c < = 0) then rez : = b; if (a < = 0) and (b < = 0) and (c < = 0) then rez : = 0; writeln(rez); end. громоздко, но, думаю, покатит
okasnab
06.06.2020
Для какой из перечисленных ниже фамилий писателей и поэтов истинно высказывание " не (количество гласных букв нечётное) и не (первая буква согласная)" ? инверсия - это отрицание. в естественном языке соответствует частице " не". отрицание - логическая операция, которая с связки " не" каждому исходному выражению ставит в соответствие составное высказывание, заключающееся в том, что исходное выражение отрицается. конъюнкция - логическое умножение. в естественном языке соответствует союзу " и". логическое " и" истинно тогда и только тогда, когда истинны оба высказывания. запишем выражение в исходном виде. рассмотрим возможные варианты. а) есенин - ложно, поскольку ложно высказывание " не (количество гласных букв нечётно). б) одоевский - истинно, поскольку истинны оба высказывания - количество гласных букв чётное и первая буква гласная. в) толстой - ложно, поскольку ложно высказывание " не (первая буква согласная). г) фет - ложно, поскольку ложны оба высказывания - количество гласных букв нечётное и первая буква согласная.