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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 13.10.2013, 17:37   #1
niancell
 
Регистрация: 13.10.2013
Сообщений: 5
По умолчанию Помогите с задачей на Паскале по информатике, пожалуйста.

Вывести все числа от N до M, сумма цифр которых равна (k+7), где k – номер варианта.

N и M вводится.
k - подставьте любое число.
Язык - Pascal.
niancell вне форума
Старый 13.10.2013, 18:26   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
сумма цифр
Код:
function sum(x:integer):Integer;
var a:integer;
begin 
 a:=0;
 while x>0 do begin
   a:=x mod 10+a;
   a:=a div 10;
 end;
 sum:=a;
end;
Цитата:
Вывести все числа от N до M
Код:
for i:=n to m do begin
 q:=sum(i); if q=(k+7) then write(i:5);
end;
Где все переменки целочисленные.
Идея понятна?
I'm learning to live...
Stilet вне форума
Старый 13.10.2013, 18:30   #3
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
a:=a div 10;
Описочка.. Подразумевалось x := x div 10;
Poma][a вне форума
Старый 13.10.2013, 19:26   #4
niancell
 
Регистрация: 13.10.2013
Сообщений: 5
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
[CODE]
Идея понятна?
Да, спасибо большое.
niancell вне форума
Старый 13.10.2013, 20:45   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Описочка
Точняк... )
I'm learning to live...
Stilet вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалуйста с задачей на Паскале? ТолянPAVL Помощь студентам 0 16.06.2009 17:37
Пожалуйста помогите с задачей на Паскале SkyLink Помощь студентам 1 07.05.2009 18:16
Пмогите с задачей в Паскале, пожалуйста. Saaashka Помощь студентам 3 18.06.2008 11:30