Program n_1;
var a:array [1..1000] of integer; i, buf:integer;
begin
for i:=1 to 1000 do begin
read(a[i]);
buf:=a[i];
while buf>9 do buf:=buf div 10;
if buf>a[i] mod 10 then write(a[i], ' ');
end;
end.
В (1) все правильно, а в (2) ошибка: при g/5 получится действительное число и его нельзя записать в g, т.к. g определена для целых чисел.
1) все идет по степеням двойки. Чтоб закодировать число 79, уже надо закодировать 128 чисел = 2^7 = 7 бит
2) 1.5 кб = 1.5*1024*8 бит = 12288 бит
12288 / 3072 = 4 бита на символ
значит мощность 2^4 = 16
3) 8*8=64 возможных варианта или мощность алфавита.
64 = 2^6 -> 6 бит на один ход
Ответ:
var a:array [1..14] of real;
i:integer;
s:real;
begin
s:=0;
write('Массив: ');
for i:=1 to 14 do
begin
a[i]:=random()+random(3);
write(a[i]:0:3,' ');
s:=s+a[i]
end;
writeln;
write('Сумма чисел равна ',s:0:3)
end.
опоздала наверное. ну все таки