begin
var a := ArrRandom(10, 1, 10); a.Println;
for var i := 0 to a.High do
if i.isOdd then a[i] *= 2
else a[i] *= 3;
a.Println;
end.
Не у меня) какой это класс
Задание несколько расплывчатое, но скорее всего, подойдет такое решение:
var r,d,p: real;
begin
writeln('введите радиус');
readln(r);
d:= 2*pi*r;
p:=pi*r*r;
writeln('площадь = ',p);
writeln('длина окружности = ',d)
end.
Я так понимаю, задача на вывод формулы?
!! Если V - стоимость конфет за килограмм, то
![\frac{V}{1000}](https://tex.z-dn.net/?f=+%5Cfrac%7BV%7D%7B1000%7D+)
- стоимость за грамм.
Количество граммов конфет, которые Андрей может купить на сдачу можно рассчитать по формуле:
![N = \frac{1000(S - (n_1 \cdot v_1 + n_2 \cdot v_2))}{V}](https://tex.z-dn.net/?f=N+%3D+%5Cfrac%7B1000%28S+-+%28n_1+%5Ccdot+v_1+%2B+n_2+%5Ccdot+v_2%29%29%7D%7BV%7D)
Или, если в виде, подходящем для программы:
"N = 1000(S - (n_1 * v_1 + n_2 * v_2))\V".