<span>uses</span> crt;
<span>var</span> a<span>,</span>s<span>:</span><span>integer</span>;
<span>begin</span>
clrscr;
<span>repeat</span>
<span>write</span><span>(</span><span>'Введите трехзначное число a='</span><span>)</span>;
<span>readln</span><span>(</span>a<span>)</span>;
<span>until</span><span>(</span>a><span>=</span><span>100</span><span>)</span><span>and</span><span>(</span>a<<span>=</span><span>999</span><span>)</span>;
s<span>:=</span><span>0</span>;
<span>while</span> a><span>0</span><span>do</span>
<span>begin</span>
s<span>:=</span>s<span>+</span>sqr<span>(</span>a <span>mod</span><span>10</span><span>)</span><span>*</span><span>(</span>a <span>mod</span><span>10</span><span>)</span>;
a<span>:=</span>a <span>div</span><span>10</span>;
<span>end</span>;
<span>if</span> a<span>*</span>a<span>=</span>s<span>*</span>s<span>*</span>s <span>then</span><span>write</span><span>(</span><span>'Квадрат числа=сумме кубов его цифр'</span><span>)</span>
<span>else</span><span>write</span><span>(</span><span>'Квадрат числа<>сумме кубов его цифр'</span><span>)</span>;
<span>readln</span>
<span>end</span>.
1010,10*1000,01=10,25*8,25=84,56(10)=1010100,10(2)
56,71(10)=111000,10(2)
Кодировка Unicode: 16бит=2байт
в предложении 52 символа, проверяем оба вариант.
1) 52симв.*16бит=832бит
2)52симв.*2байт=104байта
из 4х вариантов подходит только 2,
ответ 2.
Program primer;
procedure random(c,x,y:integer; var r:integer);
begin
case c of
1 : r:=Random(ABS(Y)+ABS(x)+1)+x;
2 : r:=Random(ABS(Y)+ABS(x)+1)+y;
3 : r:=Random(Y-x+1)+x;
4 : r:=Random(x-y+1)+y;
5 : r:=Random(x+y);
6 : r:=Random(ABS(x+y))-ABS(x+y);
7 : r:=x;
8 : r:=Random(ABS(ABS(x)-ABS(y)))-ABS(x);
9 : r:=Random(ABS(ABS(x)-ABS(y)))-ABS(y);
end;
end;
var
a,b: array of array of integer;
i,j,x,y,c,m,p,sum:integer; begin
Randomize;
sum:=0;
writeln('Кол-во строк и столбцов массива? //X,Y\\ ');
read(i,j); //Размерность массива
writeln('Диапазон чисел //от X,до Y\\ ');
read(x,y); //и диапазон генерации вводятся с клавиатуры.
if (x=y) then
c:=7
else
if(x<0) and (y<0) then
if (x<y) then
c:=8
else
c:=9
else
if (x=0) or (y=0) then
if(x<0) or (y<0) then
c:=6
else
c:=5
else
if(x<0) or (y<0) then
if (x<y) then
c:=1
else
c:=2
else
if (x<y) then
c:=3
else
c:=4;
SetLength(a,i);
for m:=0 to i-1 do
SetLength(a[m],j);
SetLength(b,i);
for m:=0 to i-1 do
SetLength(b[m],j);
for m:=0 to i-1 do begin
writeln();
for p:=0 to j-1 do begin
random(c,x,y,a[m,p]); {Заполнить двумерный массив случайными числами.}
sum:=sum+a[m,p]; {вычисляет сумму всех элементов массива}
write (a[m,p]:3,' ':3);
end;
end;
c:=0;
writeln('summa=',sum);
for m:=0 to i-1 do begin {Затем организовать новый массив В }
writeln();
for p:=0 to j-1 do begin
if (a[m,p] <0) then begin
b[m,p]:=1; {в котором заменить отрицательные элементы исходного массива на 1} inc(c); {Подсчитать количество замен. }
end
else
b[m,p]:=a[m,p]; {а значения остальных элементов оставить без изменения }
write(b[m, p]:3, ' ':3);
end;
end;
writeln('kol=',c);
a:=NIL;
b:=NIL;
end.
// ABC Pascal
Делить байты на 1024. в 1 килобайте 1024 байт