#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Rus");
int n, j;
cout << "введите длину массива ";cin >> n;
int* A = new int[n];
cout << "Введите массив " << endl;
for (int i = 0; i < n; i++) //ввод массива
{
cin >> A[i];
}
for (int i = n - 1; i >= 0; i--)
{
j = i;
while (A[j] == 0 && A[1 + j] != 0 && j + 1 < n)
{
int tmp = A[j + 1];
A[j + 1] = A[j];
A[j] = tmp;
j++;
}
}
cout << "новый массив ";
for (int i = 0; i < n; i++)
{
cout << A[i]<<" ";
}
delete[] A;
return 0;
}
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(ReadInteger, 1, 1, (i, j)-> i + j).Println
end.
<h2>И это - всё !</h2>
1.
var i:integer;
begin
for i:=10 to 99 do
if (i mod 3=0)and(i mod 5<>0)
then write(i,' ');
end.
Результат:
<span>12 18 21 24 27 33 36 39 42 48 51 54 57 63 66 69 72 78 81 84 87 93 96 99
2.
var i:integer;
begin
for i:=10 to 99 do
if i div 10 + i mod 10 = 15
then write(i,' ');
end.
Результат:
<span>69 78 87 96 </span></span>
3 вариант ответа при загрузке операционной системы
E Г Э 2 0 1 3 ----> всего 7 символов,
i бит, чтобы закодировать каждый символ: 2^i =7 (ближайшая к 7 (бОльшая) степепень двойки =8) 2^i=8 ---> i=3 бита для кодирования одного символа.
Пароль из 15 символов:
3*15=45 бит = 45:8 = 6 байт (целое количества байт)
Всего 25 паролей:
6*25=150 байт
ответ 150 байт