Var n, i, k, s: integer;
begin
readln(n);
for i:=1 to n do
begin
readln(k);
if abs(k)>i then s:=s+k;
end;
writeln(s);
end.
1)80 бит
2)12 байт
3)0.5 кБайт
4)1025 кБайт
5)1 Мбайт
6)500 Мбайт
От меньшего к большему
Равносторонний треугольник - это треугольник, у которого все стороны равны. Равны также и его высоты.
Нужно знать формулы из математики:
h = a√3/2, S = a²√3/4, r = a√3/6, R = a√3/3.
Вот программа (в Паскале не различают прописные и строчные бувы, поэтому радиус вписанной окружности обозначим как r1):
var a,s,h,r1,R:real;
begin
write('a=');readln(a);
s:=a*a*sqrt(3)/4;
h:=a*sqrt(3)/2;
r1:=a*sqrt(3)/6;
R:=a*sqrt(3)/3;
writeln('S=',s:3:2,' h=',h:3:2,' r=',r1:3:2,' R=',R:3:2);
end.
Ответ:
243
Объяснение:
используются 0, 1, 2 - это система счисления по основанию 3
позиций 5: от 00000 до 22222
всего возможных чисел = 3 в степени 5 = 243