ДАМ ВСЕ СВОИ ВОЗМОЖНЫЕ БАЛЛЫ и отмечу ответ как лучший!!!! ПОМОГИТЕ, ОЧЕНЬ БУДУ БЛАГОДАРЕН!!!
Кто знает информатику, напишите код для выполнения этой задачи в Lazarus !!!!
Знайти суму 10 чисел, перше з яких дорівнює а , а кожне наступне в 2 рази більше за попереднє.
Кто знает информатику, напишите код для выполнения этой задачи в Lazarus !!!!
Знайти суму 10 чисел, перше з яких дорівнює а , а кожне наступне в 2 рази більше за попереднє.
Answers & Comments
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.