Var i,n,sum:integer;
begin
sum:=0;
write ('N = ');
readln (n);
for i:=1 to n do sum:=sum+i;
writeln ('Summa; ',sum);
end.
Для хранения информации об одном символе требуется 6 бит. Всего символов - 130, значит объем информации равен 6*130 = 780 бит
600*256000 Бит.
сам посчитай.
Var a,b,c,cosa, cosb, cosc:real;
<span>begin </span>
<span>writeln('Введите стороны треугольника АВС'); </span>
<span>read(a,b,c); </span>
<span>cosa:=(sqr(b)+sqr(c)-sqr(a))/(2*b*c); </span>
<span>cosb:=(sqr(c)+sqr(a)-sqr(b))/(2*c*a); </span>
<span>cosc:=(sqr(a)+sqr(b)-sqr(c))/(2*a*b); </span>
<span>writeln('Косинус угла А = ', cosa, ' Косинус угла В =', cosb,' Косинус угла C =', cosc); </span>
<span>end.</span>