Var a,n,p,i:integer;
begin
write('Введите а и n: ');
readln(a,n);
p:=a;
for i:=1 to n-1 do
p:=p*(a+i);
writeln('Ответ: ',p);
<span>end.
var a,n,p,i:integer;
begin
write('Введите а и n: ');
readln(a,n);
p:=a;
while i<n-1 do
begin
i:=i+1;
p:=p*(a+i);
end;
writeln('Ответ: ',p);
<span>end.</span></span>
Program pr1;
var
x:byte; // Число
y:real; // Функци
Begin
x:=17;
writeln('y= ',SQRT(x+8));
End.
Дальше просто замени другими значениями x
С точки зрения математики и информатики - любыми. Это вопрос предварительной договоренности в рамках конкретной задачи.
Если ответ не устраивает, то уточните: о множествах и объектах, используемых где именно, Вы спрашиваете.
Пиши дано и что дано в задачах решение дили
Program ads;
var
i :integer;
z,x,a :real;
begin
writeln('Введи цену за килограмм');
readln(z);//Узнаём цену за 1 кг.
a:=0.1;//начальный вес 100 грамм.
for i :=1 to 10 do begin
write('Цена за ');
write(a:5:2); //Выводим вес
x:=z*a;//Высчитываем цену за a грамм
a:=a+0.1;//прибавляем 100 грамм
write(' килограмм равна - ');
write(x:5:2);//Выводим цену за вес
writeln;
end;
readln;
end<span>.</span>