<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-100,100); a.Println;
var b:=a.Where(x->abs(x) mod 10=5).ToArray;
var n:=b.Length;
if n>0 then begin Write(n,' элементов: '); b.Println end
else Writeln('Нет искомых элементов')
end.
<u>Пример</u>
64 63 5 -45 30 74 -29 48 -87 -24
2 элементов: 5 -45
яблоня-ствол, корень,ветка-яблоко-семечко
адрес: яблоня, ветка,яблоко.
Таблица кодировки символов устанавливает соответствие между: символами, их десятичными номерами и двоичными кодами, символами<span> разных алфавитов, символами и количеством байтов, которые они занимают</span>
Ответ:
///1
#include <iostream>
using namespace std;
main()
{
int k;
cin >> k;
cout << (k % 7 ) + 1;
return 0;
}
///2
#include <iostream>
using namespace std;
main()
{
long int N, L, R;
cin >> N >> L >> R;
cout << N / 2 + (L + 1) / 2 - R / 2 - 1;
return 0;
}
Объяснение:
Для того, чтобы составить трассировочную таблицу, нужно иметь сам алгоритм. Позволю предположить, что там было нечто вроде такого (запись на языке кумир):
алг бинвдес
нач
цел N2, k, N10
ввод N2
k := 1
N10 := 0
нц пока N2<>0
N10 := N10 + mod(N2, 10) * k
k := k * 2
N2 := div(N2, 10)
кц
вывод N10
<span>кон
</span>
Таблица во вложении