Оператор if (1 условие) и Саse( может быть 10 условий)
Очень просто задание.
А - 11
Б - 010
В - 100
Г - 110
1100101111110100, чтобы перевести в шестнадцатеричный код нужно отделять по 4 знака.
1100 1011 1111 0100
По таблице тетрад знаем.
CBF4
Ответ: CBF4
Если подождать, то и на море будет хорошая погода
Если спешишь - то поезжай окольными путями
Есть враги - спать не моги
Ему о деле говорят - а он о Тане думает :)))
<span>(А блок-схему ветвления перерисуй из ЛЮБОГО учебника информатики)</span>
Var a,max,sum:integer;
arr:array [0..2015] of integer;
begin
randomize;
max:=-500;
sum:=0;
for a:=0 to 2015 do begin
arr[a]:=random(1001)-500;
if max<arr[a] then max:=arr[a];
end;
write('максимальный элемент массива ==> ',max);
writeln();
if max mod 2 = 1 then begin
for a:=0 to 2015 do begin
if arr[a] mod 2 =1 then sum:=sum+arr[a];
end;
writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum);
end;
sum:=0;
if max mod 2 = 0 then begin
for a:=0 to 2015 do begin
if arr[a] mod 2 =0 then sum:=sum+arr[a];
end;
writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum);
end;
end.
Чтобы поставить пять пробелов подряд,достаточно 5 рас нажать клавишу