Uses crt;
var n,s:integer;
begin
read(n);
s:=0;
while n<>0 do
begin
s:=s+n;
read(n);
end;
writeln(s);
<span>end.
Программа считывает введённые элементы, пока не введён 0, и выводит их сумму.</span>
<span>Рабочий лист состоит из 256 столбцов и 65 536 строк.</span>
1 программа
2 текстовый документ
3 тоже текст
4 незнаю формат
5 это адрес сайта
мне кажется, что это Жук — это насекомое
Сергей — друг Андрея
Можно сделать, например, так (но это всё равно очень-очень корявый вариант):
const s='ABCDEF';
var x:string;
t:real;
a,i,n,q:integer;
begin
readln(x);
readln(q);
t:=0;
n:=length(x);
for i:=1 to n do
begin
case x[i] of
'0'..'9' : a:=strtoint(x[i]);
'A'..'F' : a:=pos(x[i],s)+9;
end;
n:=n-1;
t:=t+a*power(q,n);
end;
writeln(t);
end.