program
zadacha;
var
n,x:real;
begin
writeln('vvedite
chislo');
readln(n);
if n>0
then x:=sqr(n);
if n<0
then x:=sqr(n)*n;
writeln(x);
end.
41₈=1×8⁰+4×8¹=1+32=33₁₀
520₈=2×8¹+5×8²=16+320=336₁₀
306₈=6×8⁰+3×8²=6+192=198₁₀
Var n,i:integer; s:real;
begin
readln(n);
s:=0;
for i:=0 to n do s:=s+1/(2*i+1);
writeln('s = ',s);
end.
Пример:
5
<span>s = 1.878210678210678e+00</span>
Ответ:
ftp://FedAndr. edu/prog/about.pdf
Объяснение:
адресация в Интернете:
протокол :// сервер / каталог (каталоги) / файл
Сад (растения, садовник)
Река (вода, берег)
Игра (игроки, правила)