1).Использовал цикл,но условия не до конца понял
program c1;
var n,i:integer;
y,l:real;
begin
l:=1;
readln(n);
for i:=1 to n do
begin
y:=y+(1/l);
l:=l+1;
writeln(y);
end;
end.
2).
program c1;
var n,i:integer;
begin
readln(n);
for i:=1 to n do
begin
if (i mod 3=2) then write(i,' ');
end;
end.
0.5 Кбайт = 0.5*1024*8 бит = 4096 бит.
4096 бит : 128 бит = 32
Ответ: в 32 раза
1 буква = 5 бит, т.к. 2^5=32.
5*200 = 1000 бит
1000:8=125 байт все хорошо, вот только чтобы получить из этого кбайты нужно поделить на 1024
следовательно 125/1024=0.1220703125кбайт
Из возможных символов у нас
, то есть, работая с размещениями, получим
комбинаций
В Excel нет размещений, но есть комбинации, тогда
Program abc;
var a,b,c:integer;
begin
readln(a,b,c);
if ((a=b) and (b=c) and (c=a)) then writeln(sqr(a)+sqr(b)+sqr(c))
else if (a>b) and (b>c) then begin b:=a; c:=a; writeln('a=',a,' b=',b,' c=',c) end
else if (b>a) and (c<b) then begin a:=b; c:=b; writeln('a=',a,' b=',b,' c=',c) end
else if (c>a) and (c>b) then begin a:=c; b:=c; writeln('a=',a,' b=',b,' c=',c) end;
<span>end.</span>
