Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
это у нас прогрессия 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 ssd;
uses crt,graph;
var a,a1,a2,a3: integer;
begin
clrscr;
writeln('введите трехзначное число');
readln(a);
a1: = a mod 10;
a2: =(a div 10) mod 10;
a3: = a div 100;
writeln(' ',a1,a2,a3);
readkey;
end.
1 input a
2 input b
3 input c
20 if a> b then goto 60
30 if b> c then goto 110
40 max=с
50 goto 120
60 if a> c then goto 90
70 max=с
80 goto 120
90 max=a
100 goto 120
110 max=b
120 if a< b then goto 160
130 if b< c then goto 210
140 min=с
150 goto 220
160 if a< c then goto 190
170 min=с
180 goto 220
190 min=a
200 goto 220
210 min=b
220 print min*max
1)никакие художники не могут повторить замечательный стиль рисования известного художник маковского
2)все великие писатели в своё время переносили критику,но это делало их только сильнее.
дальше не придумал
(с уважением tipaeinstein)
Популярные вопросы