var a:array[1..10] of integer;
i:byte;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
writeln(a[i]*2);
end.
Давайте будем кодировать температуры от 0 до 64 градусов, а потом просто вычитать из них 30. Чтобы закодировать число от 0 включительно до 64 исключительно необходимо 6 бит (2 в 6-ой = 64). Если мы хотим кодировать включительно нам потребуется 7 бит.
//PascalABC.NET
//Версия 3.4.2
begin
range(1,ReadInteger('n=')).Where(x->x.IsEven).Println;
end.
Program test;
<span>var n: integer; </span>
<span>begin </span>
<span>writeln(' n = '); read(n); </span>
<span>writeln(' сотен = ' , n div 100); </span>
<span>end; </span>