<span>В основании призмы правильный треугольник с стороной 4 см. Боковая поверхность
состоит из 3 прямоугольников, с основанием 4 см и каждый имеет площадь 48/3=16 см². Обозначим h – высота прямоугольника боковой
поверхности, длина которой равняется длине бокового ребра. Тогда площадь S= h·4,
или 16=h·4. Отсюда
находим высоту h =4 cм. Ответ: 4 см.
</span>
Var x,n,k:integer;
<span>begin </span>
<span>k:=0; </span>
<span>writeln('Введите количество чисел в последовательности'); </span>
<span>readln(n); </span>
<span>writeln('Введите числа'); </span>
<span>while n>0 do begin </span>
<span>readln(x); </span>
<span>if x mod 3=0 then k:=k+1; </span>
<span>n:=n-1; </span>
<span>end; </span>
<span>writeln('Количество чисел четных 3 = ',k); </span>
<span>end.</span>
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger(ReadlnInteger).Where(t->t mod 4=0).Max)
end.
<u>Пример</u>
10
-8 6 12 0 -8 19 -5 2 12 -40
12
Поскольку язык не указан, отвечающий вправе использовать любой. В данном случае выбран VBA из состава Microsoft Office 2003 (реализация в среде Excel). Некоторые дамы и господа (обычно школьники и студенты), мнят себя великими программистами и считают семейство языков VB/VBA/VBS недостойным упоминания. Теперь у них есть возможность написать что-то аналогичное на С++/Delphi и сравнить полученные коды с приведенным.
<em><u>Собственно, описание класса Class1:</u></em>
Private Const n = 12
Public Sub HowManySucc(ByRef kol As Integer)
Dim i As Integer, m1 As Integer, m As Integer
kol = 0
m1 = GetInt()
For i = 2 To n
m = GetInt()
If m > m1 Then kol = kol + 1
Next i
End Sub
Private Function GetInt() As Integer
Dim n As Integer
GetInt = Int(Val(InputBox("Введите целое число")))
End Function
<em><u>Вызов для тестирования:</u></em>
Sub aa()
Dim oC As New Class1, k As Integer
oC.HowManySucc k
MsgBox "Целых, больше первого: " + Str(k)
End Sub