begin writeln ('введите целое число'); readln( a ); x:=a; s:=0; while ( x<>0 ) do begin s := s + (x mod 10); x := x div 10; end;
Ответ а. єто докладно если .сто процентов
Var
p: integer;
begin
readln(p);
if p=5 then print('Молодец!')
else if p = 4 then print('Хорошо!')
else if p<=3 then print('<span>Лентяй!</span>')
end.
Организация двоичной системы исчисления такая же как и десятичной с одним лишь исключением: в десятичной 10 цифр (от 0 до 9), а в двоичной всего две цифры (0 и 1). При переходе из младшего разряда в соседний старший разряд в десятичной системе происходит умножение на 10, а в двоичной системе - умножение на 2. То есть например:
123 в десятичной = 1*100 + 2*10 + 3*1,
а в двоичной, например 101 = 1*(2*2) + 0*2 + 1*1 = 4+1=5, то есть
101(в двоичной) = 5 (в десятичной).
Для числа три,
3 = 2 + 1 = 1*2 + 1 = (11)(в двоичной).
В приложении файл изображения, там табличка соответствия первых натуральных чисел в десятичной и двоичной системе.