[LMhope]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

var    r,r1,r2,r3:integer; begin writeln('9999<r<1 '); readln(r); r1:=r mod 10; r2:=r mod 100; r3:=r div 100;   if ((r1>1)and(r1<5)) then writeln(r2,'kopeiki') else if  ((r2>10) and (r2<20))then writeln(r2,'kopeek')    else if ((r1>4) and (r1<11))or(r1=0)  then writeln(r2,'kopeek') else   if r1=1  then writeln(r2,'kopeika')  ; readln;   if (r3=1) then writeln(r3,'rubl')else if (r3>1)and (r3<5) then writeln(r3,'rublya')else if (r3>4)and (r3<20) then writeln(r3,'rublei');        readln;   { TODO -oUser -cConsole Main : Insert code here } end .

Admin: Пользуемся тегами!

Написал программу. Вроде все нормально. Но выводит только тот if , который стоит впереди. Нужно вывести оба.Помогите пожалуйста.

[dr. F.I.N.]

Извините за оффтоп. Кто нибудь знает число больше 9999 и меньше 1???

Код:

1	writeln('9999<r<1 ');

[NIch]

Ну ладно тебе)))
Читай так
9999>r>1
:-)

[s0Creator]

Может так ? :

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

var   r, r1, r2, r3, r4: integer; begin   writeln('1<r<9999 ');   readln(r);     r3 := r div 100;   r4 := r3 mod 10;     if (r3 > 0) then   begin     if (r3 > 4) and (r3 < 20) then       write(r3, ' rublei ')     else if (r4 = 1) then       write(r3, ' rubl ')     else if (r4 > 1) and (r4 < 5) then       write(r3, ' rublya ')     else       write(r3, ' rublei ');   end;     r1 := r mod 10;   r2 := r mod 100;     if r2 > 0 then   begin     if ((r2 > 4) and (r2 < 20)) then       writeln(r2, ' kopeek')     else if ((r1 > 1) and (r1 < 5)) then       writeln(r2, ' kopeiki')     else if r1 = 1 then       writeln(r2, ' kopeika')     else       writeln(r2, ' kopeek')   end;     readln;     { TODO -oUser -cConsole Main : Insert code here } end.