Автор: Дмитрий

Дмитрий — Sat, 19 Jan 2019 04:44:20 +0000

 var N,N1,N2,N3:integer;
       C,C1,C2,C3:string;
begin
//Task('Case18');
   read(N);
   N1:=N div 100;
   N2:= N mod 100;
   N2:=N2 div 10;
   N3:=N mod 10;

   case N1 of
   1:C1:= 'сто';
   2:C1:= 'двести';
   3:C1:= 'триста';
   4:C1:= 'четыреста';
   5:C1:= 'пятьсот';
   6:C1:= 'шестьсот';
   7:C1:= 'семьсот';
   8:C1:= 'восемьсот';
   9:C1:= 'девятьсот';
   end;
   case N2 of
   1:if N3=0 then C2:=' десять';
   2:C2:= ' двадцать';
   3:C2:= ' тридцать';
   4:C2:= ' сорок';
   5:C2:= ' пятьдесят';
   6:C2:= ' шестьдесят';
   7:C2:= ' семьдесят';
   8:C2:= ' восемьдесят';
   9:C2:= ' девяносто';
    end;
   case N3 of
   1:if N2=1 then C3:= ' одиннадцать' else C3:= ' один';
   2:if N2=1 then C3:= ' двенадцать' else C3:=' два';
   3:if N2=1 then C3:= ' тринадцать' else C3:=' три';
   4:if N2=1 then C3:= ' четырнадцать' else C3:=' четыре';
   5:if N2=1 then C3:= ' пятнадцать' else C3:=' пять';
   6:if N2=1 then C3:= ' шестнадцать' else C3:=' шесть';
   7:if N2=1 then C3:= ' семнадцать' else C3:=' семь';
   8:if N2=1 then C3:= ' восемнадцать' else C3:=' восемь';
   9:if N2=1 then C3:= ' девятнадцать' else C3:=' девять';
    end;
    C:= C1+C2+C3;
    write(C)
    end.

var N,N1,N2,N3:integer;

C,C1,C2,C3:string;

begin

//Task('Case18');

read(N);

N1:=N div 100;

N2:= N mod 100;

N2:=N2 div 10;

N3:=N mod 10;

case N1 of

1:C1:= 'сто';

2:C1:= 'двести';

3:C1:= 'триста';

4:C1:= 'четыреста';

5:C1:= 'пятьсот';

6:C1:= 'шестьсот';

7:C1:= 'семьсот';

8:C1:= 'восемьсот';

9:C1:= 'девятьсот';

end;

case N2 of

1:if N3=0 then C2:=' десять';

2:C2:= ' двадцать';

3:C2:= ' тридцать';

4:C2:= ' сорок';

5:C2:= ' пятьдесят';

6:C2:= ' шестьдесят';

7:C2:= ' семьдесят';

8:C2:= ' восемьдесят';

9:C2:= ' девяносто';

end;

case N3 of

1:if N2=1 then C3:= ' одиннадцать' else C3:= ' один';

2:if N2=1 then C3:= ' двенадцать' else C3:=' два';

3:if N2=1 then C3:= ' тринадцать' else C3:=' три';

4:if N2=1 then C3:= ' четырнадцать' else C3:=' четыре';

5:if N2=1 then C3:= ' пятнадцать' else C3:=' пять';

6:if N2=1 then C3:= ' шестнадцать' else C3:=' шесть';

7:if N2=1 then C3:= ' семнадцать' else C3:=' семь';

8:if N2=1 then C3:= ' восемнадцать' else C3:=' восемь';

9:if N2=1 then C3:= ' девятнадцать' else C3:=' девять';

end;

C:= C1+C2+C3;

write(C)

end.

Комментарии: Решаем задачи Абрамян на Кумире. Case9

Автор: Дмитрий