//Pascal ABC.NET v3.0 сборка 1111
var
ar:array of integer;
n:integer;
begin
n:=0;
setlength(ar,n+1);
readln(ar[n]);
while ar[n]<>0 do
begin
inc(n);
setlength(ar,n+1);
readln(ar[n]);
end;
sort(ar);
ar.Print(' ');
<span>end.</span>
<span>n = int(input("N = "))
if n > 10<span>:
</span></span>----<span>s = <span>0
</span></span>----<span>for i in range(10,n,5)<span>:
</span>----</span>----<span>s += i
</span>--------<span>print(i,end=" ")
print("\nSuma = ",s)</span>
#include <iostream>
#include <string>
using namespace std;
string dectobin(int num) // функция для перевода
{
string result; // строка для результата
for (; num!=0; num>>=1) // цикл со сдвигом вправо на 1 бит (работает быстрее чем деление на 2,
//но также делит)
result.insert(0, num&1 ? "1" : "0"); // вставка цифры в начало строки (1 если последний бит 1, 0 если 0)
return result; // возврат результата
}
int main(int argc, char *argv[])
{
// тут думаю понятно, ввод данных и вызов функции
int num;
cout<<"Enter number: ";
cin>>num;
cout<<dectobin(num);
return 0;
}