Question

ДАМ ВСЕ СВОИ ВОЗМОЖНЫЕ БАЛЛЫ и отмечу ответ как лучший!!!! ПОМОГИТЕ, ОЧЕНЬ БУДУ БЛАГОДАРЕН!!!
Кто знает информатику, напишите код для выполнения этой задачи в Lazarus !!!!

Знайти суму 10 чисел, перше з яких дорівнює а , а кожне наступне в 2 рази більше за попереднє.

Answer 1

program sum

;var res, a, i: integer;

begin

 writeln('a: ');

 readln(a);

 res := 0

 ;for i:=1 to 10 do

 begin

   res := res + a;

   a := 2 * a;

 end;

 writeln(res);

end.