Словесное представление введенного возраста

@Dilovar Azimov · Регистрация: 11.04.2014

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
var
  N, a, b: byte;
 
begin
  writeln(' Введите возраст от 20 до 69:');
  write('  ');
  readln(N); //вводим возраст
  writeln;
  a := N mod 10; //вторая цифра возраста
  b := N - a; //число десятков возраста
 {Проверяем число десятков: }
  case b of
    20: write(' Двадцать');
    30: write(' Тридцать');
    40: write(' Сорок');
    50: write(' Пятдесят');
    60: write(' Шестдесят')
   {Если нужного числа нет, то создаем индикатор: }   
    else a := 70 {любое число с интервала [70, 255]}
  end;
 {Проверяем вторую цифру числа: }
  case a of
    70: write(' Такого возраста здесь нет!'); //Ошибка
    0: write(' лет');
    1: write(' один год');
    2: write(' два года');
    3: write(' три года');
    4: write(' четыре года');
    5: write(' пять лет');
    6: write(' шесть лет');
    7: write(' семь лет');
    8: write(' восемь лет');
    9: write(' девять лет')
  end
end.

@kmaffa · 11.04.2014, 20:21

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
static void Main(string[] args)
{
    Console.Write("Введите возраст от 20 до 69: ");
    string n = Console.ReadLine();
    int a = Convert.ToInt32(n) % 10;
    int b = Convert.ToInt32(n) - a;
    switch (b)
    {
        case 20: Console.Write(" Двадцать"); break;
        case 30: Console.Write(" Тридцать"); break;
        case 40: Console.Write(" Сорок"); break;
        case 50: Console.Write(" Пятдесят"); break;
        case 60: Console.Write(" Шестдесят"); break;
        default: a = 70;break;
    }
    switch (a)
    {
        case 70: Console.WriteLine(" Такого возраста здесь нет!"); break;
        case 0: Console.WriteLine(" лет"); break;
        case 1: Console.WriteLine(" один год"); break;
        case 2: Console.WriteLine(" два года"); break;
        case 3: Console.WriteLine(" три года"); break;
        case 4: Console.WriteLine(" четыре года"); break;
        case 5: Console.WriteLine(" пять лет"); break;
        case 6: Console.WriteLine(" шесть лет"); break;
        case 7: Console.WriteLine(" семь лет"); break;
        case 8: Console.WriteLine(" восемь лет"); break;
        case 9: Console.WriteLine(" девять лет"); break;
    }
}

@Dilovar Azimov · 11.04.2014, 20:40 **[ТС]**

kmaffa, Огромное спасибо Вам.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@Dilovar Azimov 0 / 0 / 0 Регистрация: 11.04.2014 Сообщений: 3
	11.04.2014, 20:40 [ТС]
	kmaffa, Огромное спасибо Вам. 0

Словесное представление введенного возраста

Решение