Привет.
Ответ вложен ниже. Пиши, если будут вопросы
<em>512 бит = 64 байт</em>
<em>81 902 бит = 10 240 байт</em>
<em>15 кб = 15 360 байт</em>
<em>88 кб = 720 896 бит</em>
<em>5 гб = 5 120 мб</em>
<em>1 мб = 1 048 576 байт.</em>
<em><u>Пожалуйста)</u></em>
1.
var n,p:integer;
begin
write('n='); readln(n);
p:=1;
while n<>0 do begin
p:=p*(n mod 10);
n:=n div 10;
end;
writeln('p = ',p);
end.
Пример:
n=1234
p = 24
2.
var n,k:integer;
begin
write('n='); readln(n);
k:=0;
while n<>0 do begin
k:=k+1;
n:=n div 10;
end;
writeln('k = ',k);
end.
Пример:
n=456123
k = 6
3.
var n,s,i:integer;
begin
write('n='); readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('s = ',s);
end.
Пример:
n=5
s = 15
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.