Для заданого 0<=n<=200.Расматриваемого как возраст человека,вывести фразу вида: "Мне 21 год", "Мне 32 года", "мне 12 лет".

@kuz93 · Регистрация: 25.12.2010

Студворк — интернет-сервис помощи студентам

МОЙ ВОЗРАСТ. Для заданого 0<=n<=200.Расматриваемого как возраст человека,вывести фразу вида: "Мне 21 год", "Мне 32 года", "мне 12 лет".

Сообщить("Введите возраст:"+a); ВвестиЧисло(а);
Сообщить("Мне "+ а);
если 10>Цел(а/100)<20 тогда Сообщить("лет"+a)
КонецЕсли;
ИначеЕсли Цел(а/10) = 1 тогда Сообщить("год"+a)
КонецЕсли;
ИначеЕсли 2> Цел(а/10)<4 тогда Сообщить("года"+a)
иначе Сообщить("лет"+a);
КонецЕсли;

КонецПроцедуры

помогите исправить код[/QUOTE]

@Fenomen · 08.12.2012, 18:50

А в чем проблема то?

@fjay69 · 08.12.2012, 19:56

Проблема в том, что надо применять не Цел(Возраст/10), а Возраст%10. Вот исправленный код:

1C

Процедура МойВозраст(Команда)
    Возраст=0;
    Сообщить("Введите возраст:");
    ВвестиЧисло(Возраст);
    Если Возраст%100<10 ИЛИ Возраст%100>20 Тогда
        Если Возраст%10 = 1 Тогда Сообщить("Мне "+ Возраст +" год")
        ИначеЕсли Возраст%10<5 И Возраст%10>1 Тогда Сообщить("Мне "+ Возраст +" года")           
        Иначе Сообщить("Мне "+ Возраст + " лет"); 
        КонецЕсли;
    Иначе Сообщить("Мне "+ Возраст + " лет"); 
    КонецЕсли;
КонецПроцедуры

@Dethmontt · 10.12.2012, 00:48

1C

1
2
3

Возраст = 15;    
А = ЧислоПрописью(Возраст,"Л=ru_RU","Год,Года,Лет,м,Год,Года,Лет,м,0");
Сообщить(А);

@fjay69 · 10.12.2012, 18:01

Сообщение от Dethmontt

1C

1
2
3

Возраст = 15;    
А = ЧислоПрописью(Возраст,"Л=ru_RU","Год,Года,Лет,м,Год,Года,Лет,м,0");
Сообщить(А);

Оно выдаёт выражение вида "пятнадцать лет". А если нужно число цифрами, но чтобы предмет исчисления также склонялся (год, года, лет,...)?

@Dethmontt · 10.12.2012, 18:03

1C

Возраст = 15;   
А = ЧислоПрописью(Возраст,"Л=ru_RU","Год,Года,Лет,м,Год,Года,Лет,м,0");
А = Прав(А,4);
А = СтрЗаменить(А," ","");
Сообщить("Мне "+Возраст+" "+А);

@kuz93 0 / 0 / 0 Регистрация: 25.12.2010 Сообщений: 10
		1
	Для заданого 0<=n<=200.Расматриваемого как возраст человека,вывести фразу вида: "Мне 21 год", "Мне 32 года", "мне 12 лет". 08.12.2012, 15:36. Показов 4209. Ответов 5 Метки нет (Все метки) МОЙ ВОЗРАСТ. Для заданого 0<=n<=200.Расматриваемого как возраст человека,вывести фразу вида: "Мне 21 год", "Мне 32 года", "мне 12 лет". Сообщить("Введите возраст:"+a); ВвестиЧисло(а); Сообщить("Мне "+ а); если 10>Цел(а/100)<20 тогда Сообщить("лет"+a) КонецЕсли; ИначеЕсли Цел(а/10) = 1 тогда Сообщить("год"+a) КонецЕсли; ИначеЕсли 2> Цел(а/10)<4 тогда Сообщить("года"+a) иначе Сообщить("лет"+a); КонецЕсли; КонецПроцедуры помогите исправить код[/QUOTE] 0

@Fenomen 900 / 877 / 8 Регистрация: 15.03.2012 Сообщений: 2,680
	08.12.2012, 18:50	2
	А в чем проблема то? 0

Опции темы