I=K*i
i=2048:256=8 бит 1 символ
символов в алфавите
var
a:array [1..20] of integer;
i,c,k:integer;
sr:real;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(80)-44;
write (a[i],' ');
end;
writeln;
write ('C = ');readln(c);
for i:=1 to 20 do
if a[i]>c then begin
sr:=sr+a[i];
k:=k+1;
end;
sr:=sr/k;
writeln (sr:0:2);
readln;
end.
Ответ:
program vasa228;
var x,y,z,a:int64;
begin
readln(x,y,z);
a:=0;
while round((2*x+3*y+4*z+a*5)/(x+y+z+a))<4 do a:=a+1;
write(a);
end.
Объяснение:
Лицензионная продукция - любой, кто согласился с условиями лицензии.
Видимо, имели ввиду коммерческие программы. По сути, пользователь может только эксплуатировать программу по прямому назначению, причем на свой страх и риск. Он не имеет права копировать, распространять, модифицировать продукт.
Условно-бесплатная продукция позволяет поработать с ней для ознакомления. Ограничения те же, что и для коммерческих продуктов.
Условная бесплатность выражается в том, что:
- можно использовать все функции программы в течение некоторого времени, затем функционал ограничивается или
- реклама присутствует в окне программы,при запуске каждый раз или
- на что хватит фантазии у разработчиков.
Свободно распространяемая продукция без ограничений может быть установлена, скопирована, передана третьим лицам. Модификация программы может быть допущена (для таких программ разработчик публикует их исходный код), может быть и запрещена.
