Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 26.12.2012, 19:20   #1 (permalink)
TylerMcTre
Новичок
 
Регистрация: 26.12.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите решить задачу в паскале

Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N – 1, у которых сумма всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово «нет».
TylerMcTre вне форума   Ответить с цитированием

Старый 26.12.2012, 19:20
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Ознакомьтесь с этими топиками, наверняка тут есть ответ который вам нужен

Помогите решить задачу в паскале
Помогите решить задачу в Паскале
Помогите решить задачу в Паскале
Помогите решить задачу в Паскале
Помогите решить задачу на паскале ABC

Старый 26.12.2012, 20:04   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,429
Сказал(а) спасибо: 297
Поблагодарили 538 раз(а) в 181 сообщениях
Репутация: 95593
По умолчанию

Цитата:
Сообщение от TylerMcTre Посмотреть сообщение
Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N – 1, у которых сумма всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово «нет».
Да без проблем:
Код:
Var
 N,i:LongInt;
 p:boolean;

Function Sum(M:LongInt):Byte;
var S:longInt;
begin
 S:=0;
 Repeat
  S:=S+(M mod 10);
  M:=M div 10;
 Until M=0;
 Sum:=S;
end;

Begin
 Write('N= ');
 Readln(N);
 p:=true;
 For i:=1 to N-1 do
  If Sum(i)=Sum(N) then
   begin
    Write(i:8);
    p:=false;
   end;
 If p then Writeln('No');
 Readln;
End.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 17:27.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.