Написать программу, которая после введенного с клавиатуры числа ( в диапозоне от 1 до 99) обозначающего денежную единицу, дописывает слово рубль в правильной форме. например 12 рублей, 21 рубль.
Вот на Pascal (Console Aplication) : var a:Integer; begin Writeln('Vvedite nominal valuti'); Readln(a); case (a mod 10) of 1: if (a=11) then Writeln('Y Vas est ',a,' rublei') else begin Writeln('Y Vas est ',a,' rubl'); end; 2,3,4: if (a=12) or (a=13) or (a=14) then Writeln('Y Vas est ',a,' rublei') else begin Writeln('Y Vas est ',a,' rublya'); end; 0,5,6,7,8,9: if (a=15) or (a=16) or (1=17) or (a=18) or (a=19) then Writeln('Y Vas est ',a,' rublei') else begin Writeln('Y Vas est ',a,' rublei'); end; end; Readln; end.
function colcifr(a: integer): integer; var s, k: string; i, j: integer; begin i := a; repeat str(i mod 10, k); i := i div 10; if (pos(k, s) = 0) then begin s := concat(s, k); inc(j); end; until (i = 0); colcifr := j; end;
function sum(i: integer): integer; var a, b: integer; begin a := i; repeat b := b + a mod 10; a := a div 10; until (a = 0); sum := b; end;
var i: integer;
begin for i := 1000 to 9999 do if (i mod 2 + i mod 7 + i mod 11 = 0) then if (colcifr(i) = 2) then if (sum(i) = 30) then writeln(i); end.
</head> <body> <p style="text-align: center"> Замыкание в Java Script для непосвященных. </p> <p align="left"> Появление «настоящих» замыканий в Java может спровоцировать волну новых споров о «чистоте» вроде споров об универсальных типах. </p> <p align="right"> Однако здесь снова всё неоднозначно, поскольку замыкания — идея очень простая, однако вместе с тем достаточно мощная. </p> <hr /> <div align="right"> <p> В этой статье я кратко расскажу о замыканиях для Java, которые, возможно, появятся уже в JDK 7. </p> <p> Скачать текущий прототип для экспериментов вот тут. </p> </div> </body> </html>
var
a:Integer;
begin
Writeln('Vvedite nominal valuti');
Readln(a);
case (a mod 10) of
1:
if (a=11) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rubl');
end;
2,3,4:
if (a=12) or (a=13) or (a=14) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rublya');
end;
0,5,6,7,8,9:
if (a=15) or (a=16) or (1=17) or (a=18) or (a=19) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rublei');
end;
end;
Readln;
end.