1. 

   Voode New Member

   Помогите пожалуйста...написать программу в паскале. Просклонять слово «корзина» для числав
   диапазоне от 1 до 10

    

   Voode, 26 фев 2010

   #1
2. 

   Nico New Member

   Var a:integer;    b:string;
   Begin 
   Write('Сколько у вас корзин? '); readln(a); 
   case a of 
   1:b:='корзина'; 
   2..4: b:='корзины'; 
   5..10: b:='корзин' 
              end;
   Writeln(a,' ',b);
   end.  

    

   Nico, 26 фев 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня