var a:array[1..100] of integer;
i:integer;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]); // Заполняем массив
if i mod 3=0 then // Проверка на кратность номера элемента 3ем
write(a[i], ' ');
end;
end.
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var t:= ReadlnString('Введите строку').Where(i -> (i >= '0')and(i <= '9')).JoinIntoString('');
Write('Строка чисел: ');
t.Println();
end.
Десятичная Двоичная восьмеричная шестнадцатеричная
0 0 0 0
1 1 1 1
2 10 2 2
3 11 3 3
4 100 4 4
5 101 5 5
6 110 6 6
7 111 7 7
8 1000 10 8
9 1001 11 9
10 1010 12 А (если в двоичной системе цифра 16, то в шестнадцатеричной 10, если 17, то 11 и так далее)
Мы заметили закономерность- с каждым днем кол-во ряски увеличивается в 2 раза.30 июня ряска покрыла всю поверхность озера ===> половина озера была покрыта ряской 29 июня.
1111011
6 единиц, и снова здравствуйте!