Данный вопрос уже был поэтому отвечу так же :
У 10-ой алфавит: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 = 10 цифр => основание равно 10.
<span>У 2-ой алфавит: 0, 1 = 2 цифры => основание равно 2. </span>
Var a,b,c,s:integer;beginread(a);read(b);read(c);s:=a*b*c;writeln('s= ',s);
А) TIFF. Объем<span> файлов в </span>TIFF формате<span> значительно превосходит </span>объем<span> файлов в </span>формате<span>JPEG (в восемь-десять раз).</span>
Существуют три основных типа величин<span>, с которыми работает компьютер: </span>числовой, символьный<span> и </span>логический.
Var
n, k, s: integer;
begin
s := 0;
k := 0;
repeat
write('Введите целое число = ');
readln(n);
if n > 0 then begin
k := k + 1;
s := s + n;
end
until n = 0;
writeln('Среднее арифметическое = ', s / k);
end.