Паскаль. задана последовательность n целых чисел a1, an. выведите сумму всех ее элементов, стоящих на - id359591620210628 от sabinabaigali 28.06.2021 22:10

Question

Информатика: Паскаль. задана последовательность n целых чисел a1, an. выведите сумму всех ее элементов, стоящих на позициях, которые являются степенями двойки: 1, 2, 4, 8, 16 и т.д. входные данные в первой строке задано целое число n (1 ≤ n ≤ 10000). вторая строка содержит последовательность целых чисел a1, an. выходные данные выведите искомую сумму. пример 5 10 7 9 7 9 24

sabinabaigali · Accepted Answer

Function leng(var x,y,x1,y1: real): real; begin   leng:=sqrt(sqr(x-x1)+sqr(y-y1)); end; // основная программа var x1,y1,x2,y2,x3,y3,p: real; begin   write( координаты вершин  x1 y1 x2 y2 x3 y3 через пробел:   );   readln(x1,y1,x2,y2,x3,y3);   if (leng(x2,y2,x1,y1) + leng(x3,y3,x2,y2) = leng(x3,y3,x1,y1)) or      (leng(x2,y2,x1,y1) + leng(x3,y3,x1,y1) = leng(x3,y3,x2,y2)) or      (leng(x3,y3,x2,y2) + leng(x3,y3,x1,y1) = leng(x2,y2,x1,y1)) then   writeln( точки лежат на одной прямой )   else    begin...

MOGZ ответил