1. Треугольник будет существовать если будут выполнятся одновременно три неравенства: x + y > z x + z > y y + z > x
Программа:
var x, y, z: real; begin writeln('Введите стороны треугольника x, y, z: '); read(x, y, z); if (x + y > z) and (x + z > y) and (y + z > x) then writeln('Треугольник существует') else writeln('Треугольник не существует'); end.
2. Думаю, здесь излишни объяснения.
Программа:
var x, y, z: real; begin writeln('Введите три числа: '); read(x, y, z); writeln('В интервале (1; 3) лежат числа: '); if (x > 1) and (x < 3) then writeln(x); if (y > 1) and (y < 3) then writeln(y); if (z > 1) and (z < 3) then writeln(z); end.
Dim s, s1, s0, t As String 'строка, первая буква слова, слово, список нужных слов s = InputBox("Введите строку:") Do Do n = n + 1 If s1 = "" Then s1 = Mid(s, n, 1) 'запоминаем первую букву слова If Mid(s, n, 1) = s1 Then m = m + 1 'считаем, сколько раз она встретилась s0 = s0 & Mid(s, n, 1) 'запоминаем слово If n > Len(s) Then Exit Do Loop While Mid(s, n, 1) <> " " If m = 1 Then t = t & s0 'переносим слово в список m = 0 'сбрасываем промежуточные переменные в исходное состояние s1 = "" s0 = "" Loop Until n > Len(s) If t = "" Then t = "Искомых слов нет" MsgBox (t)
Верный вариант А
Мона лучший ответ?