vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.
Ответ дал: Гость
var a,b,c,s,p: real;
begin
read(a,b,c);
p: =(a+b+c)/2;
s: =sqrt(p*(p-a)*(p-b)*(p-c));
write(s: 0: 2);
end.
вроде так
Ответ дал: Гость
в одном байте восемь бит. следовательно 100/8=12.5
Популярные вопросы