Var a:array[1..20] of integer;
i,k1,k2:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
if odd(a[i]) then k2+=1;
if not odd(a[i]) then k1+=1;
end;
writeln(k1,' ',k2);
<span>end.</span>
Var
a:array[1..10] of integer;
b,i,k:integer;
begin
Randomize;
Write('Введите количество элементов в массиве: ');
for i:=1 to 10 do
begin
a[i]:=Random(21)-10;
Write(a[i],' ')
end;
Writeln;
Write('Какое число искать? ');
Readln(b);
k:=0;
for i:=1 to 10 do
if a[i]=b then Inc(k);
Writeln('Число встречается ',k,' раз')
end.
Подробнее - на Znanija.com -
znanija.com/task/29303328#readmore
1) переведем "37" в двоичную систему счисления, путем деления числа на два.
2) переведем дробную часть, умножая на два.
Решение смотри во вложении.
(c) понятность это-<span>разборчивость, ясность, вразумительность, отчетливость, внятность, доходчивость, доступность, общепонятность.
(а)моссовость это отношение к алгоритмам это правильно,, (б)результативность тоже самое на результат чтобы хорошо выполнить
(д)точность это</span><span>коммуникативное качество речи, возникающее как соответствие смысловой стороны речи предметно-вещной действительности и/ли системе выражаемых понятий...
я думаю под (с) а там сам решай опр. дал
</span>
10101010 2-170 10, 121 10 - 1111001 2