Алгоритм на формальном языке:
начало
<u>введите</u> Х
<u>введите</u> У
<u>если</u> Х > 0 <u>и</u> У > 0 <u>тогда</u> Z = Х + У
<u>иначе</u> Z = Х * У
<u>напечатать</u> Z
конец
13 в 10-ой = 1101 в 2-ой.
Запишем в 16 разрядной ячейке:
Первый разряд ячейки отводим под знак числа. Число положительное, значит записываем 0.
0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1
Program zeromas;
var
c: array[1..12] of integer;
i, z: integer;
begin
z := 0;
for i := 1 to 12 do
begin
readln(c[i]);
if c[i] = 0 then
z := z + 1;
end;
writeln('Нулевых элементов: ', z);
end.
Var
x : real;
begin
read (x);
if (x > -1) and (x <= 11) then write ('принадлежит') else write ('не принадлежит');
end.
<span>software (программное обеспечение)</span>