<span>Да конечно. Векторный квадрат и векторный круг - разные объекты, а описываются одной и той же моделью </span>
var a:integer;
function SumN (n:integer):integer;
var
i,sum:integer;
begin
i:=1;
sum:=0;
while i<=n do
begin
sum:=sum+i;
i:=i+2;
end;
if n mod 2 = 0 then sum:=sum+n;
sumN:=sum;
end;
begin
readln(a);
writeln('Сумма нечётных до "a"(вкулючая в сумму "a", даже если оно чётное): ',sumN(a));
end.
Uses crt;
const N = 30;
var A: array[1..N] of integer;
i, x, y:
integer;
s: real;
begin
for i:=1 to
N do readln(A[i]);
writeln;
x:=201;
for i:=1 to N do
if (a[i]<x) and (a[i]>179) then begin x:=a[i]; y:=i; end;
writeln(a[y]);
end.
2+8 =10 - сума цифр
2×8=16 - произведение цифр
Если используется 60 различных символов, то для кодирования одного символа требуется log(2)60 ≈ 6 бит
Для кодирование 50 символов нужно 50*6=300 бит