Function ToBinaryString(x: integer): string;
var r, s: string;
begin
if x < 0 then begin
s := '-';
x := -x;
end;
while x <> 0 do begin
r := Chr((x and 1) or 48) + r;
x := x shr 1;
end;
ToBinaryString := s + r;
end;
var x: integer;
begin
readln(x);
writeln(ToBinaryString(x));
<span>end.</span>
Ответ:
// ConsoleApplication1.cpp : This file contains the 'main' function. Program execution begins and ends there.
//
#include <iostream>
#include <vector>
using std::cout;
int main()
{
std::vector<int> ints = { 1 , -2, -3, -4, 5, 6, -7, -8, -9, 10 };
cout << "vector before transformation: ";
for (auto integer : ints) {
cout << integer << " ";
}
cout << std::endl;
for (std::size_t i = 1; i < ints.size(); ) {
if (ints[i] < 0) {
ints.erase(ints.begin() + i);
i += 1;
continue;
}
i += 2;
}
cout << "vector after transformation: ";
for (auto integer : ints) {
cout << integer << " ";
}
cout << std::endl;
}
Объяснение:
По условию создаем вектор, удаляем элементы из вектора, если число ниже 0, движемся через один элемент по вектору ¯\_(ツ)_/¯
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
SeqGen(6,i->(i+10)**3).Println
end.
<u>Результат</u>
1000 1331 1728 2197 2744 3375
наверное компьютер, мышь,принтер,колонки, клавиатура
26 скорее всего, учили когда-то