Единичка и нолик играют в игру. ведущий называет натуральное число, затем, если в двоичном представлении числа больше единиц, то оно достаётся единичке, если нулей - нолику. если нулей и единиц поровну, то оно не достаётся никому. друзьям надоело считать числа вручную, и они поручили вам написать программу-счётчик. дано натуральное число, не превосходящее 1 000 000 000. вывести количество единиц и ноликов в его двоичном представлении. входные (файл bit. in): данные пример 1 пример 2 123 выходные (файл bit. out): данные пояснение: в первом случае 810 - 1000, - 1 единица и 3 нуля. во втором12310 -1111011, - единиц и 1 ноль.
Дорогие друзья, Я Приц своё планеты и хочу пожелать вам только лучшего. Пусть вся планета будет цвести как розы...Я не житель вашей планеты, но все же Знайте без войны и разрушений ваша планета становиться лучше. Друзья это самое лучшее что есть у вас и думаю не каждый правильно знает это слово... Будьте добрее к другим, не засоряйте планету и цените жизнь.
Ну и на конец все что вас окружает создавали потомки целыми годами и веками, а я от лица другой планеты надеюсь что вы не испортит труды...( что то из этого можешь использовать... Хотя не особо по теме.)
Спочатку потрібно викликати процедуру randomize.
Потрібно створити ціле число, що належить інтервалу [1, 4]. Для цього будемо використовувати формулу X:=Random(B-A+1)+A, де A=1,B=4.
Перевіримо створене число.
Якщо воно дорівнює 1, то надрукуємо слово 'піка'.
Якщо воно дорівнює 2, то надрукуємо слово 'треф'.
Якщо воно дорівнює 3, то надрукуємо слово 'бубна'.
Якщо воно дорівнює 4, то надрукуємо слово 'чирва'.
Програма
var x:byte;
begin
randomize;x:=random(4)+1;
if x=1 then writeln('пики');
if x=2 then writeln('трефи');
if x=3 then writeln('бубни');
if x=4 then writeln('черви');
end.
Приклад 2
Одержати у програмі 10 випадкових цілих чисел у діапазоні від 0 до 10 включно та знайти їх суму.
Змінні:
Вхідних даних немає.
Вихідні:
x – число, що має значення від 0 до 10 (ціле число)
s – сума всіх чисел x
Проміжні:
i – параметр циклу (ціле число)