Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
это у нас прогрессия b1=1
q=1/2
bn=0,001> b1*q^(n-1)
0,001> q^(n-1)
0,001> 0,5^(n-1)
0,0005> 0,5^n
n=11
s11=b1*(1-q^n)/(1-q)=b1*(1-0,5^11)/0,5=1(0,999511718)/0,5=1,999023438
почти равно двум
великобритания - лондон
греция - афины
италия - рим
нидерланды -
франция - париж
var
i: integer;
a: array[1..16]of integer;
begin
for i: =1 to 16 do
a[i]: =random(40)-20;
if a[i] mod 3=0 then write(i,' ');
end;
writeln;
end.
a: [1..100] array of integer;
i,n,p: integer;
readln(n);
for i: =1 to n do
readln(a[i]);
p: =2;
while (p*p< =a[i]) do
if p*p=a[i] then writeln (a[i],' полный квадрат')
p: =p+1;
Популярные вопросы