[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 , который стоит впереди. Нужно вывести оба.Помогите пожалуйста.