[LMhope]

Код:

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???

Код:

writeln('9999<r<1 ');

[NIch]

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

[s0Creator]

Может так ? :

Код:

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.