Напишите программу которая принимает с клавиатуры положительное трехзначное число а затем вычисляет и выводит на экран его "степень четности". на PASKAL
10-11 класс
|
var n, k :integer;
Begin
read(n);
k := 0;
while (n mod 2 = 0) begin
k := k + 1;
n := n div 2;
end;
writeln(k);
End.
Другие вопросы из категории
Читайте также
введено с клавиатуры (не считая значения 999) и вывести эту информацию на экран.
а)удвоенное значение числа,если число положительное; б)абсолютное значение числа,если число отрицательное.
2)Напишите программу которая анализирует введенное с клавиатуры число на четность и сообщает о результате.
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.