А,г,б,в)))))))))))))))))))
var a,b:integer; {a-число, b-количество знаков числа}
begin
readln(a);
while a<>0 do
begin
b:=b+1;
a:=a div 10;
end;
writeln(b);
end.
Const n=10;
var
a: array[1..n] of real;
s, k: real;
i, m: integer;
begin
//считываем данные в массив
for i:=1 to n do
readln(a[i]);
k:=0; m:=0;
//находим сумму и количество целых элементов
for i:=1 to n do
if a[i] = int(a[i]) then
begin
k:=k+a[i];
inc(m);
end;
//находим среднее арифметическое
s := k/m;
writeln(s);
<span>end.</span>
Ответ:
2.5 мбайт
Объяснение:
1280 * 1024 * 16 бит = 20 971 520 бит
20 971 520 бит / 8 = 2 621 440 байт
2 621 440 байт / 1024 = 2560 кбайт
2560 кбайт / 1024 = 2.5 мбайт