Program xxx;
var
i : integer;
begin
writeln('Введите двухзначное число...');
readln(i);
writeln('Ответ:', (i div 10)+(i mod 10));
end.
var n,count:integer;
begin
repeat
readln(n);
if(n<>999) then inc(count);
until(n=999);
writeln(count);
readln;
end.
Program n1;
var a,sum,i: integer;
begin
sum:=0;
for i:=1 to 47 do
begin
readln(a);
if (a>0) and (a mod 3=0) then sum:=sum+a;
end;
writeln(sum);
end.
Var
a[1..10]: array of integer;
i:integer;
Begin
i:=1;
while i<=10 begin
read(a[i]);
i:=i+1;
end;
End.
- (N-мощность алфавита, i-количество бит для 1 символа, k-количество символов, I-информационный объём)
N=256 =>i=8 бит
I=1/16 мбайта
k-?
I = 1024*1024*8/16 =524 288 бит
<u><em>k = I/i = 524 288/ 8 = 65 536 символов</em></u>
2. а) 256 бит = 256/8= 32 байта
б) 0.5 мбайт = 0.5*1024*1024=524 288 байт
в) 12бит = 12/8 = 1.5 байта
г) 1.25 кбайт = 1.25*1024=1280 байт