сервис вопросов и ответовPascal ABC Дано целое положительное число определить сколько в-нём двоек и нулей в заданном числе
10-11 класс|
|
Oksana28072003
16 сент. 2014 г., 4:54:13 (9 лет назад)
котя34
16 сент. 2014 г., 7:15:00 (9 лет назад)
var a,k,n,m:integer;
begin
writeln('Введите число');
readln(a);
m:=a; k:=0; n:=0;
while a<>0 do begin
if a mod 10=2 then k:=k+1
else if a mod 10=0 then n:=n+1;
a:=a div 10;
end;
writeln('В числе ',m,' ',k,' двоек и ',n,' нулей');
readln
end.
Ответить
Другие вопросы из категории
Ответьте на вопросы. 1) Какое минимальное основание может иметь система счисления, если в ней записано число 144701? 2) Какое
минимальное основание может иметь система счисления, если в ней записано число A11?
Не объяснили в школе и не понимаю.
Из двоичной в десятичную.
1011010=10
При калькуляторе получается 90, но как??? Надо полное решение пожалуйста.
игра "Угадай число" в которой пользователю предлагается угадать задуманное ЭВМ число из интервала от 0 до 100. За каждый неправильный ответ
насчитывается штраф 3 очка. это программирование в Pascal
Читайте также
Дано целое положительное число. Проверить истинность высказывания: «данное число является нечетным трехзначным».
Входные данные: ввести одно целое положительное число a ((1<=a<=1000).
Выходные данные: вывести слово «true» если приведенное высказывание для предложенных исходных данных является истинным или «false» в противном случае.
1.Дано двузначное число.Определить: a.какая из его цифр больше,первая или вторая; b. одинаковы ли его цифры. 2. Дано двухзначное число.
Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.
Даны три одномерных массива. Упорядочить их по возрастанию элементов. Составить программу проверки, сколько раз повторяется заданное число в каждом
массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию Даны три одномерных массива. Упорядочить их по возрастанию элементов. Составить программу проверки, сколько раз повторяется заданное число в каждом массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию
N-Factorial это произведение всех чисел от 1 до N. Для задного числа N определите сколько нулей в конце десятичной записи N-Factorial .
В единственной строке входного файла содержится одно целое положительное числа NN(1
1. Определить, сколько байт содержится в 0.125 Гбайтах. Результат представить как возведенное в степень число 2.
2. Определить, сколько Гбайт содержится в 512 байтах. Результат представить как возведенное в степень число 2.
Вы находитесь на странице вопроса "Pascal ABC Дано целое положительное число определить сколько в-нём двоек и нулей в заданном числе", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.