Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
это у нас прогрессия 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
почти равно двум
program naoborot;
uses crt;
var n,a,b: integer;
begin
clrscr;
write('введите натуральное число: ');
readln(x);
n: =x;
while n> =1 do
a: =n mod 10;
n: =n div 10;
b: =b*10+a;
end;
write('прочтение цифр числа справа налево: ',b)
end.
var s: string;
begin s : = 'видеоадаптер'; writeln(s); writeln(s[3] + s[2]+ s[5] + s[3]); writeln(s[12] + s[6] + s[3] + s[2] + s[5]); writeln(s[9] + s[6] + s[12] + s[10] + s[11] + s[12]); end.
Популярные вопросы