предлагаю решение на Паскале
var n: integer;
begin
read (n);
if (n mod 5)=0 then n:=n*4
else
n:=n-25;
writeln ('n=',n);
end.
Формальные исполнители - не понимают смысла в выполняемых заданиях. Например, любое техническое устройство: стиральная машина, компьютер, робот.
Неформальные исполнители - понимают смысл выполняемых заданий, могут изменять способ выполнения заданий. например, учитель учит способу решения задачи, ученик может улучшить этот способ - предложить другой, короткий, упрощенный.
Лицензионная продукция - любой, кто согласился с условиями лицензии.
Видимо, имели ввиду коммерческие программы. По сути, пользователь может только эксплуатировать программу по прямому назначению, причем на свой страх и риск. Он не имеет права копировать, распространять, модифицировать продукт.
Условно-бесплатная продукция позволяет поработать с ней для ознакомления. Ограничения те же, что и для коммерческих продуктов.
Условная бесплатность выражается в том, что:
- можно использовать все функции программы в течение некоторого времени, затем функционал ограничивается или
- реклама присутствует в окне программы,при запуске каждый раз или
- на что хватит фантазии у разработчиков.
Свободно распространяемая продукция без ограничений может быть установлена, скопирована, передана третьим лицам. Модификация программы может быть допущена (для таких программ разработчик публикует их исходный код), может быть и запрещена.
Var x,p,rez:real;
<span> n: integer;
</span><span>begin
</span><span> p:=1;
</span><span> write('числа через пробел (завершение ввода - 0): '); read(x);
</span><span> while x<>0 do
</span><span> begin
</span><span> p:=p*abs(x);
</span><span> read(x);
</span><span> end;
</span><span> write('N = '); readln(n);
</span><span> rez:=exp((1/n)*ln(p));
</span><span> writeln('корень ',N,' -ой степени из ',p,' = ',rez);
</span><span>end.
</span><span>
</span>
1) 560-120=440 номеров удалили.
2) 2500-440=2060 номеров осталось
Вроде так.
