Написать программу подсчета произведения цифр числа, делящегося на 3

@Алмат · Регистрация: 19.07.2010

Студворк — интернет-сервис помощи студентам

помогите пожалуйста с програмкой! вот текст:3. Написать программу подсчета произведения цифр числа, делящегося на 3. Написать функцию логического типа определяющую делится ли заданное число на 3 (входной параметр: целое число).

@DeLuxe · 19.07.2010, 11:13

Какого числа? Из какого нибудь диапазона? Введенного с клавиатуры? Случайным образом? Пишите внятнее.

@D@rkD@iver · 19.07.2010, 11:15

Алмат,

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
function del(n: longint): boolean;
begin
    del:= (n mod 3)= 0;
end;
var
    m: lognint;
    p: longint;
begin
    read(n);
    p:= 1;
    if del(n) then
    begin
        while n>0 do
         begin
              p:= p*(n mod 10);
              n:= n div 10;    
         end;
    end;
    writeln(p);
end.

@Алмат · 19.07.2010, 14:40 **[ТС]**

у меня эта прога не работает! как пишется правильно тип данных longint?

@D@rkD@iver · 19.07.2010, 14:42

Алмат, ну да longint
эти ошибки мог бы и см исправить

@Алмат · 19.07.2010, 14:52 **[ТС]**

ну я ее и так исправил а это спросил чтобы уточнить! у меня все равно эта прога не работает! ты точно понял условие моей задачи?

@DeLuxe · 19.07.2010, 14:53

Сообщение от Алмат

ну я ее и так исправил а это спросил чтобы уточнить! у меня все равно эта прога не работает! ты точно понял условие моей задачи?

Сказано же, написать внятно условие. Что не ясного? Мой пост перечитай и ответь на вопрос здесь в теме

@D@rkD@iver · 19.07.2010, 14:54

Алмат, нука расскажи услови по подробней

@Алмат · 19.07.2010, 14:58 **[ТС]**

ну смотри вводим любое число делящееся на 3! в ответе он должен вывести произведение цифр из которых состоит число! например если возьмем число 123 то в ответе он должен вывести 1*2*3=6. понял?

@DeLuxe · 19.07.2010, 15:01

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
function divis(a:longint):boolean;
begin
if a mod 3=0 then divis:=true else divis:=false;
end;
var n,p:longint;
begin
clrscr;
repeat
write('Введите число делящееся на 3: ');
readln(n);
until divis(n);
p:=1;
while n<>0 do begin
p:=p*n mod 10;
n:=n div 10;
end;
write('Произведение цифр числа ',n,': ',p);
readln
end.

@Алмат · 19.07.2010, 15:02 **[ТС]**

спасибо щас попробую ввести!

@D@rkD@iver · 19.07.2010, 15:09

Алмат, ну да прога так и делает

@Алмат · 19.07.2010, 15:12 **[ТС]**

все спасибо большое у меня получилось!

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@Алмат 0 / 0 / 0 Регистрация: 19.07.2010 Сообщений: 9

	Написать программу подсчета произведения цифр числа, делящегося на 3 19.07.2010, 11:07. Показов 2292. Ответов 12 Метки нет (Все метки) помогите пожалуйста с програмкой! вот текст:3. Написать программу подсчета произведения цифр числа, делящегося на 3. Написать функцию логического типа определяющую делится ли заданное число на 3 (входной параметр: целое число). 0

@DeLuxe 156 / 158 / 93 Регистрация: 01.01.2010 Сообщений: 398
	19.07.2010, 11:13
	Какого числа? Из какого нибудь диапазона? Введенного с клавиатуры? Случайным образом? Пишите внятнее. 0

@Алмат 0 / 0 / 0 Регистрация: 19.07.2010 Сообщений: 9
	19.07.2010, 14:40 [ТС]
	у меня эта прога не работает! как пишется правильно тип данных longint? 0

@D@rkD@iver 113 / 113 / 13 Регистрация: 01.10.2008 Сообщений: 876
	19.07.2010, 14:42
	Алмат, ну да longint эти ошибки мог бы и см исправить 0

@Алмат 0 / 0 / 0 Регистрация: 19.07.2010 Сообщений: 9
	19.07.2010, 14:52 [ТС]
	ну я ее и так исправил а это спросил чтобы уточнить! у меня все равно эта прога не работает! ты точно понял условие моей задачи? 0

@D@rkD@iver 113 / 113 / 13 Регистрация: 01.10.2008 Сообщений: 876
	19.07.2010, 14:54
	Алмат, нука расскажи услови по подробней 0

@Алмат 0 / 0 / 0 Регистрация: 19.07.2010 Сообщений: 9
	19.07.2010, 14:58 [ТС]
	ну смотри вводим любое число делящееся на 3! в ответе он должен вывести произведение цифр из которых состоит число! например если возьмем число 123 то в ответе он должен вывести 123=6. понял? 0

@Алмат 0 / 0 / 0 Регистрация: 19.07.2010 Сообщений: 9
	19.07.2010, 15:02 [ТС]
	спасибо щас попробую ввести! 0

@D@rkD@iver 113 / 113 / 13 Регистрация: 01.10.2008 Сообщений: 876
	19.07.2010, 15:09
	Алмат, ну да прога так и делает 0

@Алмат 0 / 0 / 0 Регистрация: 19.07.2010 Сообщений: 9
	19.07.2010, 15:12 [ТС]
	все спасибо большое у меня получилось! 0