Можно сделать, например, так (но это всё равно очень-очень корявый вариант):
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.
Презентация со сценарием, это когда для каждого слайда указана продолжительноть.
когда может задаваться порядок следования слайдов.
Интерактивная презентация, это когда слайды переключаются в ручную, по окончанию брифинга лектора например.
Var sum,i:integer;
begin
sum:=0;
for i:=100 to 999 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма трехзначных чисел кратных трем равна ',sum);
<span>end.</span>
При использовании 64 цветов для хранения одного пикселя необходимо log(2)64 = 6 бит.
Для всего изображения:
1024*768*6 бит = 1024*768*6 / 8 байт = 1024*768*6 / (8*1024) Кбайт = 576 Кбайт
базовая кодировка текста для латиницы