сервис вопросов и ответовРЕБЯТА, ПОМОГИТЕ, ОЧЕНЬ ВАЖНО Для делимости числа на 3 требуется, чтобы сумма цифр числа делилась на 3. Написать функцию проверки делимости N
5-9 класс|
|
чисел, вводимых с клавиатуры, на 3. Паскаль.Рекурсия
Comberez2003
12 мая 2014 г., 3:09:40 (9 лет назад)
Kkatyaa
12 мая 2014 г., 4:22:54 (9 лет назад)
ох уж не знаю, права я или нет :D
Но вот я бы сделала так)))
begin
readln(a); {Тут мы вводим число, которое будем проверять: делится оно на три или нет}
s := 0; {это у нас будет сумма цифр числа }
while a<>0 do
begin
b := a mod 10; {выделяем последнюю цифру}
s := s + b; {находим сумму}
a := a div 10 {переходим к следующей цифре}
end;
if s mod 3 = 0 then {ну а вот тут, как раз, проверяем}
writeln('число делится на три')
else
writeln('число не делится на три')
end.
Ответить
Другие вопросы из категории
Это не по уроку. Если у кого случалась такая ситуация, помогите пожалуйста!
Раньше у меня был комп, он был ну оооочень старый где то 2002г. Так вот, я решила скрыть папку со своими фотографиями и после этого я не смогла ни где их найти.
Пожалуйста помогите! Что сделать чтобы вернуть папку.
Дан целочисленный массив из 20 элементов элементы могут принимать значения -1000 до 1000 позволяет найти и вывести минимальные значения среди элементов
массива которые имеют четные значения и не делятся на 3
Читайте также
Ребята, помогите, очень важно. Пользователь вводит целое число x. Если число положительное – выполняется расчёт x4, если отрицательное x3.
Используется только одна подпрограмма-функция паскаль.
ОЧЕНЬ НУЖНО !!!!!!!!!!!!!!!!!!!Дано натуральное число , если оно двузначное и делится на сумму своих цифр, то его разделить на эту сумму, если оно
трехзначное и делится либо на 7, либо на 11, то его разделить на цело на 11. В остальных случаях разделить число на 10. ( сделать с помощью программы Pascal) Заранее огромное спасибо))))
Пожалуйста помогите создать какую нибудь полезную программу на паскаль , срочно нужно до понедельника, чтобы в этой программе были все темы за 8 класс,
read.writeln.else.to.if и тд которые сможете
Вот пример идеи для программы, в академию поступают какое то количество учеников, нужно написать сколько учеников сдали документы, сколько пришли на экзамен, и сколько учеников кто прошло и не прошло
возможно не возможно создать программу на этой идее, тогда прделагайте свои со своими программами , пожалуйста помогите!
Поалуйста помогите,очень надо.Отметьте ипоследовательно соедините на координатной плоскости точки , координаты которых приведены в двоичной системе
счисления. Для этого нужно перевести числа из двоичной системы в десятичную: 101,101; 1000,1000;1001,1000;1011,110; 1100,111; 1011,111;1011,10;1001,11;1010,11;1010,100;111,100;111,10;101,10;101,11;110,11;110,1001;111,1000;10,1000;10,1001;11,1001;11,110;100,101.
Пожалуйста, помогите) Очень важно) Решите хотя бы одну задачу... А если не сложно, то лучше 2 :))) 1) Информационная ёмкость
человеческой яйцеклетки приблизительно равна 2 в 33 степени битов. Сколько дискет ёмкостью 1,4 МБайт потребуется для размещения этой информации ?
2) Дискета объёмом 1440 КБайт весит 20 г. Сколько будет весить набор дискет, необходимый для полногокопирования информации с жёсткого диска объёмом 80 ГБайт ?
Заранее огроооомное спасибо :)
Вы находитесь на странице вопроса "РЕБЯТА, ПОМОГИТЕ, ОЧЕНЬ ВАЖНО Для делимости числа на 3 требуется, чтобы сумма цифр числа делилась на 3. Написать функцию проверки делимости N", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.