Const maxn=15;
<span>var a: array[1..maxn] of integer;
</span><span> skv,prod,gr,i: integer;
</span><span>begin
</span><span> writeln('введите ',maxn,' чисел');
</span><span> skv:=0; prod:=1;
</span><span> gr:=0;
</span><span> for i:=1 to maxn do
</span><span> begin
</span><span> write(i,': '); readln(a[i]);
</span><span> if a[i]<0 then skv:=skv+a[i]*a[i];
</span><span> if (a[i] mod 2 = 0) and (i mod 2 = 0) then
</span><span> prod:=prod*a[i];
</span><span> if abs(a[i])>100 then gr:=gr+1;
</span><span> end;
</span><span> writeln('сумма квадратов отрицательных: ',skv);
</span><span> writeln('произведение четных на четных местах: ',prod);
</span><span> writeln('больше 100 по модулю: ',gr);
end.</span>
введите 15 чисел
<span>1: 151
</span><span>2: -231
</span><span>3: 104
</span><span>4: 19
</span><span>5: 36
</span><span>6: -112
</span><span>7: 5
</span><span>8: 8
</span><span>9: 11
</span><span>10: 13
</span><span>11: 45
</span><span>12: 5
</span><span>13: 6
</span><span>14: 17
</span><span>15: 19
</span><span>сумма квадратов отрицательных: 65905
</span><span>произведение четных на четных местах: -896
</span><span>больше 100 по модулю: 4
</span>
Вот, я писал такое когда-то, тут не полное, но основное есть))
Program evm;
var
a:integer;
begin
Writeln('Сколько вам лет? ');
readln(a);
if a<18 then writeln('Вы ребёнок');
if (a>18) and (a<35) then writeln('Вы молоды');
If (a>35) and (a<100) then writeln('Вы взрослый');
readln;
<span>end.</span>
1 вариант:
var a: integer;
begin
write ('Введите длину ребра куба: '); read(a);
writeln ('Площадь грани куба = ',a*2);
end.
2 вариант:
var a: integer;
begin
a:=6; // Поменяйте значение на нужное
writeln ('Площадь грани куба = ',a*2);
end.
<span>1. "в одном килограмме 1000 грамм" - считая пробелы в этом предложении 29 символов - следовательно предложение вест 29 байт
2. 35-10=25 значений, 25 лежит в рамках от 17 до 32, следовательно одно значение будет весить 5 бит. так как 2^5=32. было 27 измерений - 5*27=135. Ответ : объем всех результатов - 135 бит
3. Одна лампа равна одному биту, так как можно представить, что включено - 1, выключено - 0.
аналагично со второй задачей 200 лежит в рамках от 128(2 в седьмой степени) до 256(два в восьмой степени), значит для 200 разных сигналов потребуется 8 ламп</span>