program raf105;
var
a:array[1..6] of integer;
n,i: integer;
begin
write('Введите шестизначное число: ');
readln(n);
a[1]:= n div 100000;
a[2]:= (n div 10000) mod 10;
a[3]:= (n div 1000) mod 10;
a[4]:= (n div 100) mod 10;
a[5]:= (n div 10) mod 10;
a[6]:= n mod 10;
write('Вывод: ');
for i:= 1 to 6 do
write(a[i],' ');
end.
<h3>PascalABC 3.4.2</h3>
<span>2 записывается как 1,4 — как 2, 16 - как 4, 32 - как 5, 48 - как 45 (или 54), 50 - как 145 (или 415 и т.д.).
2=2^1
16=2^4
...
50=2^5+2^4+2^1
26 это 2^6+2^2=68
ответ: Г</span>
Ручка, лук, ключ, мышь, наряд, раковина, кран, ласка, такса, рысь.
Rogram z1;
Var n,I,s,k:integer;
Begin
Writeln ('n=');
Readln (n);
S:=0;k:=0;
If n>=100 then
For I:=100 to n do begin
S:=i+s;
K:=k+1;end;
Writeln (s/k);
Readln ;
End.