Долгунча работает в ФГБУ «Якутское управление по гидрометеорологии и мониторингу окружающей среды» и занимается мониторингом и прогнозированием схода лавин на горных хребтах вдоль основных автомобильных трасс республики.
Самым важным параметром для определения возможности схода лавины является площадь
поверхности горы, покрытая снегом. Для упрощения задачи было решено представлять горы в виде
треугольников с основаниями ai и высотами hi
. Известно, что в этом году снежный покров в горах
образуется на уровне h метров и выше.
Долгунча, к сожалению, не успевает обработать все горные массивы Республики Саха (Якутия),
поэтому он просит вас обработать некоторых из них ему и вычислите общую площадь
поверхности заданных гор, покрытой снегом, если даны длины их оснований и высоты.
Выполните cледующие задания:
1. Вычислите площадь ледника для одной горы: a1 = 4, h1 = 4, h = 2.
2. Вычислите площадь ледника для одной горы: a1 = 6, h1 = 8, h = 6.
3. Вычислите площадь ледника для горной гряды с 15-ми горами:
• h = 7
• a1 = 20, h1 = 11,
• a2 = 12, h2 = 13,
• a3 = 9, h3 = 9,
• a4 = 13, h4 = 8,
• a5 = 13, h5 = 10,
• a6 = 12, h6 = 11,
• a7 = 11, h7 = 8,
• a8 = 10, h8 = 11,
• a9 = 12, h9 = 8,
• a10 = 11, h10 = 13,
• a11 = 11, h11 = 9,
• a12 = 16, h12 = 12,
• a13 = 8, h13 = 15,
• a14 = 16, h14 = 9,
• a15 = 12, h15 = 11
просто ответ на три вопроса нужен
Dim msg As String
msg = InputBox("Введите строку")
Dim s As Integer
If msg.IndexOf("K") > -1 Then s += 1
If msg.IndexOf("E") > -1 Then s += 1
If msg.IndexOf("Y") > -1 Then s += 1
If s = 3 Then MsgBox("YES") Else MsgBox("NO")
Pascal.
program chislo;
var x : integer;
msg : string;
begin
write('Введите строку: ');
readln(msg);
if pos(msg,'K')>0 then X:=X+1;
if pos(msg,'E')>0 then X:=X+1;
if pos(msg,'Y')>0 then X:=X+1;
if (x=3) then writeln('YES') else writeln('NO')
end.