Дана прогрессия 3, 6, 12, 24, чему будет равна сумма 13-ти ее членов? (составить программу в паскале+по возможности с блок-схемой)

var a: array [1..13] of real;       i: integer;       q,s: real; begin  s: =3;   a[1]: =3;   a[2]: =6;   a[3]: =12;   a[4]: =24;   q: =a[2]/a[1];   for i: =2 to 13 do    begin      a[i]: =a[i-1]*q; s: =s+a[i]; end; writeln(s); end.

каз. яз

Берілген нақты Сан х. бүтін бөлігін алыңыз*) х Саны; содан кейін—ең жақын це*логоға дейін дөңгелектелген х Саны; содан кейін-бөлшек сандарсыз х Саны. * ) [X] көрсетілген x санының бүтін бөлігі x-тен аспайтын ең үлкен бүтін деп аталады, мысалы, [3.14] = 3, [3 ] = 3, [-3. 1 4] = –4, [– 3] = –3.

рус.яз

Дано действительное число х. Получить целую часть *) числа х; затем—число х, округленное до ближайшего це*лого; затем—число х без дробных цифр. *) Целой частью числа х, обозначаемой [х], называется наибольшее целое, не превосходящее х, так, [3.14] = 3, [3 ] = 3, [–3. 1 4] = –4, [– 3] = –3.

Объяснение: Надеюсь <3 Удачи!)

Мен көмектесті деп үміттенемін<3 сәттілік!)