Для целого числа k от 1 до 99 напечатать фразу Мне

Для целого числа k от 1 до 99 напечатать фразу Мне k лет, беря во внимание при этом, что при неких значениях k слово лет надобно заменить на слово год либо года. Например, 11 лет, 22 года, 51 год.

Задать свой вопрос
1 ответ
uses crt;
var k:byte;
begin
clrscr;
repeat
write(Введите возраст от 1 до 99 k=);
readln(k);
until k in [1..99];
case k of
11..14:write(Мне ,k, лет);
else
nbsp;case k mod 10 of
nbsp;1:write(Мне ,k, год);
nbsp;2..4:write(Мне ,k, года);
nbsp;else write(Мне ,k, лет);
nbsp;end;
end;
readln
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт