var
s,i: integer; {s,i - цел}
begin
s := 0;
for i := 1 to 5 do
s := s + i;
write(s)
end.
нач
вещ а,н,клетки
а:=0.8
нц
вывод "Введите время Н "
ввод н
клетки:=а*н
ждать (862)
вывод "Клеток ",клетки,нс
ждать (2348)
кц
кон
var i,count: integer;
proizv:longint;
begin
proizv:=1;
count:=0;
for i:=20 to 40 do
begin
if (i mod 2<>0) then
proizv:=proizv*i;
end;
for i:=20 to 100 do
if (i mod 45=0)then 3{Делятся на 4,5 и на 10=>делятся на 45}
count:=count+1;
writeln('Произведение равно: ',proizv);
writeln('Число кратных чисел: ',count);
end.
Достоинства двоичной системы счисления заключаются в простоте реализации процессов хранения, передачи и обработки информации на компьютере.Для ее реализации нужны элементы с двумя возможными состояниями, а не с десятью.Представление информации посредством только двух состояний надежно и помехоустойчиво.Возможность применения алгебры логики для выполнения логических преобразований.Двоичная арифметика проще десятичной.Недостатки двоичной системы счисления Код числа, записанного в двоичной системе счисления представляет собой последовательность из 0 и 1. Большие числа занимают достаточно большое число разрядов.
Быстрый рост числа разрядов - самый существенный недостаток двоичной системы счисления.