#include <iostream>
using namespace std;
int main(){
int p;
cin >> p;
switch(p){
case 60 ... 69:
cout << 2;
break;
case 70 ... 79:
cout << 3;
break;
case 80 ... 89:
cout << 4;
break;
case 90 ... 100:
cout << 5;
break;
default:
cout << "Fail";
break;
}
cout << endl;
return 0;
}
1110₂ + Х₂ = 111001₂
X₂ = 111001₂ - 1110₂
X₂ = 101011₂
Поскольку 4 = 2², достаточно заменить каждую пару двоичных цифр на одну четверичную. Замену ведем справа налево.
Х₄ = (10)(10)(11)₂ = 223₄
1.в банке квас
2.в бутылке лимонад
3.стакан с водой
4.сосуд с молоком
{
PascalABC.NET, но все кроме writeln() должно работать и на TurboPascal.
вводит числа рандомно и находит среднее арифметическое
чётных чисел и среднее арифметическое индексов нечётных чисел.
}
PROGRAM A4;
const
num = 16;
var
MT:array [1..num] of byte;// массив чисел
i,j:byte;// счетчики
even_sum:integer;// сумма четных
even_num:byte;// количество четных
indx_sum:integer;// сумма нечетных индексов
indx_num:byte;// количество нечетных индексов
BEGIN
// условно ввели набор чисел
randomize();
for i:=1 to num do
MT[i] := random(256);
writeln('Начальный массив ', num ,' случайных чисел');
writeln(MT);
// сам алгоритм
even_sum := 0;
even_num := 0;
indx_sum := 0;
indx_num := 0;
writeln(' ');
write('Четные числа: ');
for i:=1 to num do begin
if not odd(MT[i]) then begin
write(MT[i], ' ');
even_sum := even_sum + MT[i];
even_num := even_num + 1;
end;
if odd(i) then begin
indx_sum := indx_sum + i;
indx_num := indx_num + 1;
end;
end;
writeln(' ');
writeln('Количество четных чисел ', even_num);
writeln('Среднее арифметическое четных чисел = ',
even_sum, '/', even_num , ' = ', even_sum/even_num );
writeln(' ');
writeln('Количество нечетных индексов нечётных чисел ', indx_num);
writeln('Среднее арифметическое индексов нечётных чисел ',
indx_sum, '/', indx_num, ' = ', indx_sum/indx_num);
END.