WSTI 0101110101
Ciąg geometryczny, suma:
program haha;
var
suma:integer;
ile:integer;
ilejuz:integer;
x:integer;
begin
writeln('podaj ile liczb');
readln(ile);
suma:=0;
x:=1;
ilejuz:=0;
while (suma<1000) and (ilejuz<ile) do
begin
suma:=suma+x;
x:=suma*2;
writeln('teraz jest ',suma);
ilejuz:=ilejuz+1;
end;
writeln('wykonal ',ilejuz,' razy');
readln();
end.
Offline