Пятница, 23 Февраля 2018, 23:21
Программы, исходники, статьи
Приветствую Вас Гость | RSS
Главная ПоискРегистрация Вход Баннеры
Меню раздела
ШАЯ - Кумир [12]
Delphi [24]
Разное [2]
FreeBasic, QuickBasic [4]
Pascal [7]

Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0

Главная » Программирование » ШАЯ - Кумир

Разряды числа
15 Ноября 2010, 17:51
алг
нач
цел x,y,z,d
лит s
ввод x
y:=div(x,100)
z:=div((x-y*100),10)
d:=x-y*100-z*10;
выбор
при y=0: s:=" "
при y=1: s:="одна сотня "
при y=2: s:="две сотни "
при y=3: s:="три сотни "
при y=4: s:="четыре сотни "
при y=5: s:="пять сотен "
при y=6: s:="шесть сотен "
при y=7: s:="семь сотен "
при y=8: s:="восемь сотен "
при y=9: s:="девять сотен "
все
выбор
при z=0: s:=s+""
при z=1: s:=s+"одна десятка "
при z=2: s:=s+"две десятки "
при z=3: s:=s+"три десятки "
при z=4: s:=s+"четыре десятки "
при z=5: s:=s+"пять десяток "
при z=6: s:=s+"шесть десяток "
при z=7: s:=s+"семь десяток "
при z=8: s:=s+"восемь десяток "
при z=9: s:=s+"девять десяток "
все
выбор
при d=0: s:=s+""
при d=1: s:=s+"одна единица"
при d=2: s:=s+"две единицы"
при d=3: s:=s+"три единицы"
при d=4: s:=s+"четыре единицы"
при d=5: s:=s+"пять единиц"
при d=6: s:=s+"шесть единиц"
при d=7: s:=s+"семь единиц"
при d=8: s:=s+"восемь единиц"
при d=9: s:=s+"девять единиц"
все
вывод s
кон


Категория: ШАЯ - Кумир | Добавил: daimon
Просмотров: 311 | Загрузок: 0 | Рейтинг: 1.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Топ загрузок исходников
Программы для машины Тьюринга (2339 загрузок)
Универсальная Машина Тьюринга (1431 загрузок)
Универсальная машина Тьюринга (version 2) (708 загрузок)
Расписание занятий на Delphi (595 загрузок)
Создание теста. Тестирование. Проверка результатов. (513 загрузок)
Приложение для рисования "Paint" (279 загрузок)
Нахождение НОК и НОД 4-х чисел (256 загрузок)
Ввод массива с помощью Edit (253 загрузок)
Двумерные массивы. Смена строк местами (201 загрузок)
База данных о нобелевских лауреатах. Access (201 загрузок)


KLERON © 2018 Ссылка на сайт <a href='http://kleron.ucoz.ru'>Программы, исходники, статьи</a>