Непонятна последняя фраза в задании, но тем не менее - вот вариант решения:
В ячейку А1 вводим цену в рублях
В ячейку А4 вводим формулу <em>=A1/A10</em>
В ячейку А6 вводим формулу <em>=A1/A11</em>
В ячейку А10 вводим курс доллара к рублю (сколько рублей стоит 1 доллар)
В ячейку А11 вводим курс евро к рублю (сколько рублей стоит 1 евро)
Украшаем это всё рамками и надписями с пояснениями :)
Теперь, если курс изменился, меняем его в ячейке А10 или А11 - и в ячейках А4 и А6 получаем текущую цену в валюте.
Var n,i:integer; s:real;
begin
readln(n);
s:=0;
for i:=0 to n do s:=s+1/(2*i+1);
writeln('s = ',s);
end.
Пример:
5
<span>s = 1.878210678210678e+00</span>
1)
program task1;
var x,y,xq,yq,sum,pro,cha,raz:integer;
begin
write('Введите числа:');
readln(x,y);
xq:=sqr(x);
yq:=sqr(y);
sum:=xq+yq;
raz:=xq-yq;
pro:=xq*yq;
cha:=xq/yq;
write('Сумма=',sum,';Разность=',raz,';Частное=',cha,';Произведение=',pro);
end.
2)
program task2;
var a,r,rr,h,s:real;
begin
write('Введите длину стороны треугольника: ');
readln(a);
r := sqrt(3) * a / 6;
rr := 2 * r;
h := 3 * r;
s := a * h / 2;
Writeln('Радиус вписанной окружности ', r::2);
Writeln('Радиус описанной окружности ', rr::2);
Writeln('Высота треугольника ', h::2);
Writeln('Площадь треугольника ', s::2);
end.
Это значит, что время работы программы - квадрат числа, вводимого при старте. Используемая память зависит от программной среды и величины числа.