program z1;
var a:array [1..21] of integer;
i,m: integer;
begin;
write('0.');
for i:=1 to 21 do
begin
a[i]:=random(66)-13;
write(a[i]:5)
end;
writeln;
write('1.');
for i:=1 to 21 do
begin
if i mod 2 = 0 then a[i]:=-3*a[i];
write(a[i]:5)
end;
writeln;
write('2.');
for i:=1 to 21 do
begin
if a[i] < 10 then a[i]:=-a[i];
write(a[i]:5)
end;
writeln;
write('3.');
for i:=1 to 21 do
begin
if abs(a[i]) > 40 then a[i]:=a[i]-15;
write(a[i]:5)
end;
writeln;
m:=1;
for i:=1 to 21 do if a[m] < a[i] then m:=i;
a[m]:=m*m;
write('4.');
for i:=1 to 21 do write(a[i]:5)
end.
Объяснение:
После каждого преобразования выводится получившийся массив
20 человек
Объяснение:
Если всеми тремя языками владеют 3 человека, то
- Только Н и Ф (без А) одновременно владеют 5-3 = 2 человека
- Только А и Ф (без Н) одновременно владеют 10-3 = 7 человек
- Только А и Н (без Ф) одновременно владеют 8-3 = 5 человек
- Только А (без Н и Ф) владеют 28 - (3+5+7) = 13 человек
- Только Ф (без А и Н) владеют 42 - (2+3+7) = 30 человек
- Только Н (без Ф и А) владеют 30 - (2+3+5) = 20 человек
- Не владеет ни одним из языков 100 - (13+30+20+2+7+5+3) = 100 - 80 = 20 человек
ответ: 20 человек.
Поделитесь своими знаниями, ответьте на вопрос:
Перейдите от двоичного кода к десятичному и декодируйте следующие тексты: а) 01010101 01110000 00100000 00100110 00100000 01000100 01101111 01110111 01101110; б) 01001001 01000010 01001101; в) 01000101 01101110 01110100 01100101 01110010. решать и обяснить
1) Пронумеровать число в двоичной системе справа налево начиная от нуля.
2) Каждую единицу заменить на два со степенью, которая соответствует порядковому номеру данной единицы.
3) Сложить.
Например, в приложении разобрано первое число под буквой А.
Чтобы не мучить себя однообразными расчетами, найдите "калькулятор систем счисления".
Для перевод в буквы берем таблицу ASCII и составляем слова.
а) 85 112 32 38 32 68 111 119 110 - Up & Down; (32 - это пробел)
б) 73 66 77 - IBM;
в) 69 110 116 101 114 - Enter.