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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 22.04.2010, 00:55   #1
emiljohn
Новичок
Джуниор
 
Регистрация: 22.04.2010
Сообщений: 1
По умолчанию Составление программы в Delphi

Нужно составить программу (без использования массивов, строк, процедур), в которой с клавиатуры вводится (все вводимые значения имеют тип integer) три числа, вывести их на экран в порядке возрастания суммы цифр в числе.
Задали на дом, а я не знаю как это сделать, эти лекции пропустил( Помогите плиз. Заранее спасибо!
emiljohn вне форума Ответить с цитированием
Старый 22.04.2010, 10:59   #2
[CODER]
Форумчанин
 
Аватар для [CODER]
 
Регистрация: 02.02.2010
Сообщений: 305
По умолчанию

Код:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
   var
   a, b, c, sum1, sum2, sum3: integer;
begin
     readln(a, b, c);
     while a>0 do begin
       sum1:=sum1 + (a mod 10);
       a:=a div 10;
     end;
     while b>0 do begin
       sum2:=sum2 + (b mod 10);
       b:=b div 10;
     end;
     while c>0 do begin
       sum3:=sum3 + (c mod 10);
       c:=c div 10;
     end;
     while a<3 do
     if ((sum1>=sum2) and (sum1>=sum3)) then  begin
           write(sum1, '   ');  sum1:=0;  inc(a);
     end else if ((sum2>=sum1) and (sum2>=sum3)) then  begin
           write(sum2, '   '); sum2:=0;   inc(a);
     end else if ((sum3>=sum1) and (sum3>=sum2)) then  begin
           write(sum3, '   '); sum3:=0;   inc(a);
     end;
     readln;
end.
Skype: CODERua
[CODER] вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Составление таблицы Синапенова Microsoft Office Excel 11 10.02.2012 00:06
помогите с составление проги в Delphi rof1 Помощь студентам 2 16.06.2009 20:55
составление суммарного запроса в порядке убывания спроса с помощью программы Pascal Margo123321 Помощь студентам 1 14.05.2009 11:45
Составление слова Cawboy Общие вопросы Delphi 2 03.06.2008 13:21