Пятница, 26 Май 2017, 19:59
Программы, исходники, статьи
Приветствую Вас Гость | 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
Просмотров: 286 | Загрузок: 0 | Рейтинг: 1.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Топ загрузок исходников
Программы для машины Тьюринга (2272 загрузок)
Универсальная Машина Тьюринга (1400 загрузок)
Универсальная машина Тьюринга (version 2) (672 загрузок)
Расписание занятий на Delphi (574 загрузок)
Создание теста. Тестирование. Проверка результатов. (495 загрузок)
Приложение для рисования "Paint" (264 загрузок)
Нахождение НОК и НОД 4-х чисел (244 загрузок)
Ввод массива с помощью Edit (241 загрузок)
База данных о нобелевских лауреатах. Access (189 загрузок)
Двумерные массивы. Смена строк местами (188 загрузок)


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