Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.08.2007, 18:41   #1
Needlove
Новичок
Джуниор
 
Регистрация: 30.08.2007
Сообщений: 2
По умолчанию Народ помогите пожалуйста!

ЗАдача:
на турбопаскале!!

Дано натуральное число N. Найти наибольшее число M (M>1), на которое сумма цифр числа N делится без остатка. Усли такого числа нет , то вывести слово.

Последний раз редактировалось Needlove; 30.08.2007 в 18:52.
Needlove вне форума Ответить с цитированием
Старый 30.08.2007, 21:05   #2
Сильванович Михаил
Студент
Форумчанин
 
Регистрация: 10.11.2006
Сообщений: 196
По умолчанию

Код:
function GetSum(N: integer): integer;
var
 cn,sum: integer;
begin
 sum:=0;
 cn:=n;
 repeat
  sum:=sum+(cn mod 10);
  cn:=cn div 10;
 until (((cn mod 10)=0)and((cn div 10)=0));
 GetSum:=sum;
end;
function GetM(N: integer): integer;
var
 sum: integer;
begin
 sum:=GetSum(N);
 if sum>1 then GetM:=sum else GetM:=-1; 
end;
var
 x,y: integer;
begin
 Readln(x);
 y:=GetM(x);
 if y>0 then Writeln(y) else Writeln('No');
 Readln;
end.
Visita Interiorem Terrae Rectificando Operae Lapidem...
Сильванович Михаил вне форума Ответить с цитированием
Старый 30.08.2007, 21:16   #3
Needlove
Новичок
Джуниор
 
Регистрация: 30.08.2007
Сообщений: 2
По умолчанию

большое спасиба!
Needlove вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите народ Rintas Фриланс 3 24.05.2008 08:24
Народ помогите с кнопкой empy PHP 0 23.05.2007 19:46
Народ помогите с интерфейсом krot56 Паскаль, Turbo Pascal, PascalABC.NET 4 18.02.2007 10:26