Автор Niki™ задал вопрос в разделе Другие языки и технологии
Составить программу, печатающую для целого числа k от 1 до 99 фразу: "мне k лет". При этом учитывать, что при некоторых и получил лучший ответ
Ответ от Андрей Панарин[гуру]
Это хорошая задачка. Ее решили разработчики сети "ВКонтакте", за что им большое спасибо.
Давай подумаем, когда мы пишем "год", "года" и "лет".
1 год
2 года
3 года
4 года
5 лет
..
9 лет
10 лет
11.. лет?
12 лет!
..
19 лет..
20 лет
21 год. О!
22 года
..
31 год
32 года
33 года
34 года
35 лет
Видишь закономерность?
Если число содержит ровно один десяток (11, 112, 213, 514 - не важно), тогда пишем "лет".
Иначе выбор варианта зависит от последней цифры:
1 - год
2-4 - года
другая цифра - лет
Чтобы вытащить из числа одну цифру, нужно:
1) избавиться от цифр справа от нужной цифры - поделить число нацело. Например, x div 10 отбрасывает последнюю цифру, а x div 100 отбрасывает две цифры;
2) полученное число поделить по модулю на 10 и получить остаток. Например: (x div 10) mod 10.
К примеру, возраст x = 842.
Последняя цифра: x mod 10 = 2
Предпоследняя цифра: (x div 10) mod 10 = 84 div 10 = 4
program p1;
uses CRT;
label m1,m2,m3;
var a:integer;
begin
Writeln('input number');
readln(a)
if (a=1) or (a=21) or (a=31) or (a=41) or (a=51) or (a=61) or (a=71) or (a=81) or (a=91) then go to m1;
if (2<=a<=4) or (22<=a<=24) or (32<=a<=34) or (42<=a<=44) or (52<=a<=54) or (62<=a<=64) or (72<=a<=74) or (82<=a<=84) or (92<=a<=94) then go to m2;
if (5<=a<=19) or (25<=a<=30) or (35<=a<=40) or (45<=a<=50) or (55<=a<=60) or (65<=a<=70) or (75<=a<=80)(85<=a<=90) or (95<=a<=99) then go to m3;
m1:writeln('мне',a,'год');
m2:writeln('мне',a,'года');
m3:writeln('мне',a,'лет');
readln;
end;
примени эту программу для себя
Program lab6_2;
Uses crt;
Var
k: integer;
begin
clrscr;
write('Ввести количество книг --> '); readln(k);
case k mod 100 of
11..20:writeln(k,' книг');
else case k mod 10 of
1:writeln(k,'книга');
2..4:writeln(k,'книги');
else writeln(k,'книг');
end;
end;
end.
ссылка
есть процедура по переводу числового значения в строковое представление числа. например num2word
нужна рифма к слову "один"
господин
годин
((година
ж.
1) Пора, время, ознаменованные важными общественными
подробнее...
Как называется стихотворение, где полк обращается к жене убитого солдата?
К. Симонов "
Открытое письмо
[Женщине из г. Вичуга]
Я вас обязан
подробнее...
білий кінь шептало на молочарні зміст скорочено белый конь шептало на молокозаводе содержание сокращено
Оповідання розпочинається з опису образу коня Шептала – особливого коня білого кольору, якого інші
подробнее...
В годину тягостных раздумий, В дни сомнений, как не впасть в отчаяние при виде того, что совершается дома?
Берегите своих матерей, как цветы от холодной вьюги,
Их любовь во сто крат горячей, чем друзей
подробнее...
Как Вы относитесь к гимну Франции "Марсельезе" ,почему такое название (ответа не знаю самому интересно)
Марсельеза
"Марсельеза" ("Marseillaise"), французская революционная песня,
подробнее...
кто знает слова к "Прощание славянки"?
Вообще-то марш "Прощание славянки" был написан без слов и довольно давно.
Позднее многие
подробнее...
Вот мне интересно: Почему в украинском Година - это Час, а болгарском Година - это Год
А в русском слово "година" означает вообще неконкретный промежуток времени. Ты, конечно, помнишь
подробнее...
Пользовались ли вы спреем для приучения кошки к туалету? Например "приучение к месту "Mr.Fresh" для кошек 200 мл (спрей)
Пользовались и антигодином и "годином" один фиг ссыт где
подробнее...
Стихи. Помогите найти стихи к 70-летию битвы под Москвой
Александр Прокофьев. Стихотворение о войне
Вся Родина встала заслоном.
Нам биться с
подробнее...
Имеют ли украинцы отношение к славянам ?
Славянами называют всех, для кого родными являются языки, относящиеся к славянской ветви
подробнее...
Пожалуйста подскажите метафоры к словам время, небо, солнечный луч, месяц, ночь, день.
Синонимы к время: пора, эпоха, период, срок, промежуток времени, сезон, век; эра, дата. Горячее
подробнее...
а что это за блюдо -- "тошнотики", мне бабушка рассказывала, что ели их в лихую годину
Для тошнотиков использовались картофельные очистки. Их мыли, варили, делали пюре. И из этой мятухи
подробнее...
проверочное слово к слово гаДкий СРОЧНО ПОЖАЛУЙСТАА!!!
God =Gold, oil, drugs не подходит может быть и гот, о май гот, это те get-got шо рим сожгли
Синонимы к слову "время". Срочно нужно!
Синонимы к время: пора, эпоха, период, срок, промежуток времени, сезон, век; эра, дата. Горячее
подробнее...
Подскажите кто-нибудь очень смешное поздравление мужчине к 60-летию. Заранее всем благодарен.
Чтоб у тебя всегда стоял.. .
Бокал налитого вина,
Чтоб женщина всегда давала.. .
Тебе
подробнее...