Конешн это исскуств. источнтк
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
Range(1, n).Select(i -> 1 + 1 / Sqr(i)).Product.Println
end.
Program NekitZor;
const
n=16;//1-Именованная переменная количество елементов
var
a:array[1..n] of integer;
k:integer;
i:integer;
begin
for i:=1 to n do
a[i]:=random(20);//2-Массив чисел, задал рандомно не больше 20
for i:=1 to n do write(a[i],' ');//3-Вывел массив в строку
for i:=1 to n do
if a[i]<11 then k:=k+1;//4-Подсчитал количество елементов меньше 11<span>
</span>writeln();
writeln();
writeln('Количество елементов меньше 11 = ',k);
end.
Я так понимаю, задача на вывод формулы?
!! Если V - стоимость конфет за килограмм, то
- стоимость за грамм.
Количество граммов конфет, которые Андрей может купить на сдачу можно рассчитать по формуле:
Или, если в виде, подходящем для программы:
"N = 1000(S - (n_1 * v_1 + n_2 * v_2))\V".