128-символьный алфавит – 7 бит на символ
1байт = 8 бит
количество символов в сообщении = 7875 * 8 / 7 = 9000
количество строк = 9000 / 50 = 180
Цикл «for k := 0 to 8 do» выполняется девять раз. Каждый раз переменная s уменьшается на 4. Поскольку изначально s = 50, после выполнения программы получим: s = 50 − 9 · 4 = 14.
Const nx = 20;mx = 20; var A:Array[1..nx,1..nx] of real; i,j,n,m:integer; sum:real; begin write('Введите размер матрицы'); Read(n); for i:=1 to n do begin for j:=1 to n do begin A[i,j]:= random()*100 -50; write(A[i,j]:9:4); end; writeln; end; writeln; writeln;
for i:=1 to n do begin for j:=1 to n do beginif i < j then begin write(A[i,j]:9:4); sum:=sum + A[i,j]; end else write(' ':9); end; writeln; end; write('Сумма = ',sum);<span> end.</span>
Program n1;
const n=10;
var a: array [1..n] of integer;
i,sum,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(34);
write(a[i],' ');
end;
writeln;
sum:=0;
k:=0;
for i:=1 to n do if a[i] mod 3 = 0 then
begin
k:=k+1;
sum:=sum +a[i];
end;
writeln('кол-во: ',k);
writeln('сумма: ',sum);
writeln('ср. арифм: ',sum/k);
end.
...профессия человека,...талант,...заниматься литературным трудом.