SaveText.Ru

выы
  1. procedure p(x:integer; var st:string);
  2.  type
  3.         name = array[1..9] of String[50];
  4.       const
  5.         s1 : name = ( 'один' , 'два' , 'три' , 'четыре' , 'пять' , 'шесть' , 'семь ' , 'восемь' , 'девять' );
  6.         s2: name = ( 'десять' , 'двадцать' , 'тридцать' , 'сорок' , 'пятьдесят' , 'шестьдесят ' , 'семьдесят' , 'восемьдесят' , 'девяносто'  );
  7.         s3: name = ( 'сто' , 'двести' , 'триста' , 'четыреста' , 'пятьсот ' , 'шестьсот' , 'семьсот' , 'восемьсот' , 'девятьсот'  );
  8.         s4 : name = ( 'одиннадцать' , 'двенадцать' , 'тринадцать' , 'четырнадцать' , 'пятнадцать' , 'шестнадцать' , 'семнадцать' , 'восемнадцать' , 'девятнадцать'  );
  9.       var
  10.         s,d,e : Integer;
  11. begin
  12.     s:= x div 100; x:=x mod 100;
  13.     st:=s3[s];
  14.     d:= x div 10; e:=x mod 10;
  15.     if (d=1) and (e<>0) then st:=st+s3[e]
  16.                          else st:=st+s2[d]+s1[e];
  17. end;
  18. var x:integer; st:string;
  19.  Begin
  20.      Write('Введите число [0..999] : ');
  21.      Readln(x);
  22.      p(x,st);
  23.      writeln(st);
  24.  End.

Share with your friends:

Print