Форум программистов, компьютерный форум, киберфорум
Наши страницы
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
kuz93
0 / 0 / 0
Регистрация: 25.12.2010
Сообщений: 10
1

Вывести фразу вида: "Мне 21 год", "Мне 32 года", "мне 12 лет"

02.12.2012, 13:52. Просмотров 1336. Ответов 1
Метки нет (Все метки)

МОЙ ВОЗРАСТ. Для заданого 0<=n<=200.Расматриваемого как возраст человека,вывести фразу вида: "Мне 21 год", "Мне 32 года", "мне 12 лет".
Pascal
1
2
3
4
5
6
7
8
9
var N : Byte; 
begin 
Write('Введите возраст: '); ReadLn(N); 
Wrute('Мне ', N); 
if (N mod 100) in [10..20] then WriteLn('лет.') 
else if N mod 10 = 1 then WriteLn('год.') 
else if N mod 10 in [2..4] then WriteLn('года.') 
else WriteLn('лет.'); 
end.
Помогите написать на 1с синтаксис не понимаю
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2012, 13:52
Ответы с готовыми решениями:

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

1С 8.2 Розница - "Текущая цена розницы", "Остаток" в форме элемента "Номенклатура"
Всем добрый день! Нужна помощь. В Форму элемента &quot;Номенклатура&quot; нужно добавить два поля с выводом...

Cоздать ссылку на реквизит "Наименование" справочника "Специалисты" из справочника "ЗаявкаНаОбучениеКлиентов"
Пожалуйста, подскажите. Необходимо создать ссылку на реквизит &quot;Наименование&quot; справочника...

Кто может поделиться конфигурацией и базой для "общепита" или "ресторана", хочу потестить
Кто может поделиться конфигурацией и базой для 1с предприятие общепит или ресторан, хочу потестить.

DVD-диском от книги "Профессиональная разработка в системе "1С: Предприятие 8" в двух томах"
Добрый день, товарищи! Есть такая книга: У кого есть от нее DVD? Поделитесь, пожалуйста, если у...

1
Fenomen
899 / 876 / 8
Регистрация: 15.03.2012
Сообщений: 2,680
02.12.2012, 14:26 2
Цитата Сообщение от kuz93 Посмотреть сообщение
Write
Сообщить();

Цитата Сообщение от kuz93 Посмотреть сообщение
ReadLn
ВвестиЧисло();

Цитата Сообщение от kuz93 Посмотреть сообщение
if
Если

Цитата Сообщение от kuz93 Посмотреть сообщение
then
Тогда

Цитата Сообщение от kuz93 Посмотреть сообщение
else if
ИначеЕсли

Цитата Сообщение от kuz93 Посмотреть сообщение
else
Иначе

Цитата Сообщение от kuz93 Посмотреть сообщение
end
КонецЕсли

Добавлено через 29 секунд
Цитата Сообщение от kuz93 Посмотреть сообщение
N mod 10
H-Цел(Н/10)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2012, 14:26

Не получается скопировать выделенные строчки из справочника "Сотрудники" в форму "Выбор"
Здравствуйте! У меня опыта работы с 1С мало поэтому хотел попросить помощи у более опытных коллег....

УТ 11.В документе "Заявка на расходование денежных средств" нет кнопки "Печать"!
Добрый день. Появилась необходимость сделать для Заявки на расходование денежных средств...

Поступление ОС: вкладка "Товары" и "Оборудование".Какая разница? (8.2 Бух 1.2.11)
Форумчане! Поднял тему, думаю кому-то еще будет интересной. Мне непонятно какая разница в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru