Заданное натуральное число записать прописью

[lonely_soul]

помогите написать программу:

Заданное натуральное число не превосходящее 1000 записать прописью, то есть вывести соответствующее колличество числительных,
например 375-"триста семьдесят пять"

[Летучий_СкилетиК]

писанины много..., помогу только за денежку, мой скайп maksim366780

[Акоб]

Может вывести так?
375 = 3*100 + 7* 10 + 5?

int a, b, c;
a = 375 / 100;
b = 375 / 10 % 10;
c = 375 % 10;

[Sauber]

также могу помочь за денежный эквивалент (402-142-430)

[Акоб]

Сообщение от Sauber

тоже самое) 402-142-430

Простите меня конечно, но что это?

[Sauber]

это относилось не к Вашему посту, а к предыдущему. Если Вы посмотрите на время сообщений, то увидите что разница очень мала, и в момент написания моего сообщения, Вашего сообщения я не видел.

[Spyman]

нужно брать число находить все составляющие его цифры (есть много способов)
например находить остаток от деления на 10 записывать его в переменную соответственно для сотен, десятков и единиц. дальше сложнее. я бы использовал один case для сотен (сто, двести, стриста... 10 вариантов) еще case (для чисел X00 -X19) и для чисел больше (X20 - X99) два caseА для десятков и единиц отдельно. Не очень понятно конечно. Если что пиши в личку. За небольшую плату напишу полностью :D .

[Sinapsik]

Все такие алчные,только за деньги и могут помогать,напишу в Delphi,думаю сможешь изменить

procedure TForm1.Button1Click(Sender: TObject);
const
sotni : array [0..9]  of string=('','сто','двести','триста','четыреста','пятьсот','шестьсот','семьсот','восемьсот','девятьсот');
desyatki : array [0..9] of string=('','десять','двадцать','тридцать','сорок','пятьдесят','шестьдесят','семьдесят','восемьдесят','девяносто');
edenici : array [0..9] of string=('','один','два','три','четыре','пять','шесть','семь','восемь','девять');
special : array [0..9] of string=('десять','одиннадцать','двенадцать','тринадцать','четырнадцать','пятнадцать','шестнадцать','семнадцать','восемнадцать','девятнадцать');
var
cislo,j,ed,des,sot:integer;
s1,s10,s100:string[1];
s:string;
begin
s:=Edit1.Text;
cislo:=StrToInt(s);
If ((cislo<0) or (cislo>1000)) then ShowMessage ('Введите число в диапазоне 0..1000');
j:=Length(s);
Case j of
1:begin
    ed:=StrToInt(s);
    Label1.Caption:=edenici[ed];
    end;
2:begin
    If s[1]='1' then
      begin
      s1:=s[2];
      ed:=StrToInt(s1);
      Label1.Caption:=special[ed];
      end
        else
        begin
        s10:=s[1];
        s1:=s[2];
        des:=StrToInt(s10);
        ed:=StrToInt(s1);
        Label1.Caption:=desyatki[des]+' '+edenici[ed];
        end;
    end;
3:begin
    s100:=s[1];
    s10:=s[2];
    s1:=s[3];
    des:=StrToInt(s10);
    ed:=StrToInt(s1);
    sot:=StrToInt(s100);
            If s[2]='1' then
            Label1.Caption:=sotni[sot]+' '+special[ed]
            else
            Label1.Caption:=sotni[sot]+' '+desyatki[des]+' '+edenici[ed];
    end;
4:begin
    end;
End;
If cislo=1000 then Label1.Caption:='тысяча';
If cislo=0 then Label1.Caption:='ноль';
end;

UPD Писал без проверки,потестил,надо чуть поправить с целыми числами (10,200,600 и т.д.) и добавить массив под числа 11,12,13,14 и т.д.
UPD2 Сам подправил,"спасибо" будет достаточно )))
пы.сы.код может и не особо "правильный" и оптимизированный,но рабочий

[lonely_soul]

большое спасибо!

[Sinapsik]

Сообщение от lonely_soul

большое спасибо!

не за что

10 символов, что б их...