Написать программу, которая после введенного с клавиатуры числа ( в диапозоне от 1 до 99) обозначающего денежную единицу, дописывает слово рубль в правильной форме.
Вот на 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; <span>end.</span>
And (a > c) then Begin max:=a; min1:=b; min2:=c; end else if (b>a) and (b>c) then Begin max:=b; min1:=a; min2:=c end else Begin max:=c; min2:=a; min2:=b; End; if (sqr(max)=sqr(min1)+sqr(min2)) then Writeln('Треугольник прямоугольный') else if (sqr(max)<sqr(min1)+sqr(min2)) then Writeln('Треугольник остроугольный') else Writeln('Треугольник тупоугольный'); end else Writeln('Треугольник не существует'); Readln(); END.