При перекодировании сообщения из 8-битной кодировки в 16-бинтую информационный объем увеличился на 334 бита. определите количество символов в сообщении.
var a, k, l, m: Integer; begin s:= 0; writeln ('Введите число'); readln(a); if (a>=10) and (a<=999) then k:=a div 100; l:= k div 10; m:= a mod 10; s:= k+m+l; writeln ('Сумма цифр в числе равна ', s); end.
Задача 2.
var i, a, s: Integer; begin s:=0; for i:= 1 to 3 do begin writeln ('Введите число №', i); readln(a); if (a>5) and (a mod 5 = 0) then inc(s); end; writeln('Количество четных чисел, которые делятся на 5 - ', s); end.
Задача 3
var a, b, c, d, max, med, min: Integer; begin writeln ('Введите число'); readln(a); b:= a div 100; c:= b div 10; d:= a mod 10; if (b<c) and (b<d) then min:= b; if (c<b) and (c<d) then min:= c; if (d<c) and (d<b) then min:= d;
if (b>c) and (b>d) then max:= b; if (c>b) and (c>d) then max:= c; if (d>c) and (d>b) then max:= d;
if (b>c) and (b<d) or (b<c) and (b>d) then med:= b; if (c>b) and (c<d) or (c<b) and (c>d) then med:= c; if (d>c) and (d<b) or (d<c) and (d>b) then med:= d;
1)var ar:array of integer; max,min,s,i,n,maxi,mini:integer; begin; randomize; max:=-1; min:=101; readln(n); setlength(ar,n+1); writeln('Array:'); for i:=1 to n do begin; ar[i]:=random(100); write(ar[i]:4); if max<ar[i] then begin; max:=ar[i]; maxi:=i; end; if min>ar[i] then begin; min:=ar[i]; mini:=i; end; s:=s+ar[i]; end; ar[maxi]:=s; ar[mini]:=s; writeln; writeln('Final array:'); for i:=1 to n do write(ar[i]:4); end. 2)var ar:array of integer; k,h,i,s:integer; f:real; begin; randomize; readln(h); setlength(ar,h+1); writeln('Array:'); for i:=1 to h do begin; ar[i]:=random(100)-50; write(ar[i]:4); if (ar[i]>0) and (ar[i] mod 2=0) then begin; inc(k); s:=s+ar[i]; end; end; f:=s/k; writeln; writeln('Result:',f); end.
Тогда I1=8*X, I2=16*X
I2-I1=16X-8X
8X=334
X=334/8
точно "на 334 бита"?
Должно быть число, которое делится на 8 нацело