Короткое решение:) Можно было бы, конечно, и без числа, но лучше будет, если интерпретатор сам распорядится ошибочным вводом =)
var a: integer;
b: string;
begin
readln(a);
b := inttostr(a);
writeln(length(b));
<span>end.
</span>
Переведите число 176₁₀ в 2-ичную систему счисления.
176₁₀ = 10110000₂ , но оно должно занимать ровно 16 бит памяти, следовательно, нужно дописать слева столько нулей, сколько не хватает до 16.
Ответ: 0000000010110000
1. архивирование данных 2. отправка данных по электронной почте, так быстрее прикрепятся к письму, потому что меньше объём 3. многие программы читают данные только из архивов, а не из первоначальных папок
1 - Д
2 - В
3 - Б
4 - Г
5 - А
Uses crt;
const N=30;
var a:array [1..N] of integer;
x,min,max,t:integer;
begin
for x:=1 to N do
begin
write('a[',x,']:');
readln(a[x]);
end;
min:=1; max:=1;
for x:=1 to N do
begin
if a[x]<a[min] then min:=x;
if a[x]>a[max] then max:=x;
end;
t:=a[max];
a[max]:=a[min];
a[min]:=t;
for x:=1 to N do
write(a[x]:4);
end.