67 = 1000011 переводит надо делением на 2 столбиком и записывать остаток
Var E,P:decimal;
i,j:integer;
Begin
E:=0;
For i:= 3 to 8 do
Begin
P:=1;
For j:= 1 to 9 do
P:=P*sqr(i+j);
E:=E+P
End;
WriteLn('S = ',E);
End.
У тебя не видно адресов ячеек, поэтому попробую так объяснить:
В ту ячейку, где высвечивается цена в руб. вбей формулу
=цена в долларах * на курс доллара,
при этом на курс доллара надо сделать абсолютную ссылку, чтобы ее значение не менялось при протягивании формулы вниз. Надо поставить знак $ в адрес ячейки, например, $D$1. Это можно сделать при помощи клавиши F4
var s,i:integer;
begin readln(i); s:=0; repeat s:=i mod 10 + s; i:=i div 10 until i=0; writeln(s); readln end.
Мамгюка. я не совсем понял что это такое, но это мамгюка