113(10) — 1110001(2)
36(8) — 11110(2)
C52(16) — 110001010010(2)
Var a: array[1..6] of integer;
i, k, d, v, n: integer;
begin
for i:=1 to 6 do
begin
write('Введите элемент массива под номером ', i, ' = ');
readln(a[i]);
end;
k:=0;
d:=0;
v:=0;
n:=6;
for i:=1 to n do
if a[i]=0 then
k:=k+1
else
if a[i]>0 then
d:=d+1
else
if a[i]<0 then
v:=v+1;
writeln('Количество нулевых = ', k);
writeln('Количество положительных = ', d);
writeln('Количество отрицательных = ', v);
end.
Это арифметический цикл
<span>for переменная := (значение №1) to (значение №2) do (оператор)
</span>например если требуется возвести в куб какое-либо число, то удобно использовать данный цикл
<span>for x:=1 to 10 do WriteLn(x*x*х);
</span>
надеюсь, что понятно написала)
Под буквой A) Ответ будет 100101,то есть в первой строке числа: 37,18,9,4,2,1. А во второй 1,0,1,0,0,1.
B) Ответ будет 334, в первой строке 94,18,3. А во второй 4,3,3