Var a,b,c: real; n,i: integer; beginwrite('ввидите n='); readln(n); for i: =1 to n do b: =b+(2*n+1); c: =1; for i: =1 to n do c: =c*(2*n+1); a: =b/c; writeln('a=',a); end.
Спасибо
Ответ дал: Гость
паскаль же?
var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin
d: =d+k;
val(s,k,err);
end;
write (d);
end.
Ответ дал: Гость
в одном байте восемь бит. следовательно 100/8=12.5 ответ 12.5
Популярные вопросы