Var a, b, c : integer;
Begin
Writeln(‘ a, b, c? ‘); Readln(a, b, c);
Writeln( (a=b) and (b=c) and (a=c) )
End.
Ответы
Автор ответа: rklug
1) вводить три равных натуральных числа — треугольник равносторонний. Результат программы TRUE ⇒ программа работает корректно
2) вводить три неравных натуральных числа — треугольник не равносторонний. Результат программы FALSE ⇒ программа работает корректно
3) ввести три нуля — треугольник не существует. Результат программы TRUE ⇒ программа работает некорректно
4) вводить три равных отрицательных числа — треугольник не существует. Результат программы TRUE ⇒ программа работает некорректно
5) ввести три равных или неравных вещественных числа — треугольник существует. Результата программы нет (ошибка типов) ⇒ программа работает некорректно
Источник: sous-otvet.net
23 Функция ЕСЛИ в Excel (IF)
Составить программу печатающую значение true
Составить программу, печатающую значение true, если указанное высказывание является истинным, и false – в противном случае. Ветвления и циклы не использовать Сумма цифр данного трехзначного числа N является четным числом
Решение
Потяни, чтобы посмотреть
Sub Ex_3()
Dim c1, c2, c3 As Integer
Dim answ As Boolean
‘Число как строка символов, что бы без арифметики
Dim CN As String
CN = InputBox («Укажите трехзначное число N»)
c1 = CInt (Mid(CN, 1, 1))
c2 = CInt (Mid(CN, 2, 1))
c3 = CInt (Mid(CN, 3, 1))
answ = ((c1 + c2 + c3) Mod 2) = 0
MsgBox CStr(answ)
End Sub
50% задачи недоступно для прочтения
Полное решение в телеграм. Перейди по ссылке и получи решение бесплатно, в формате PDF
Источник: author24referat.ru