Воскресенье, 24 Сентябрь 2017, 15:32
Программы, исходники, статьи
Приветствую Вас Гость | 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
Просмотров: 294 | Загрузок: 0 | Рейтинг: 1.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Топ загрузок исходников
Программы для машины Тьюринга (2293 загрузок)
Универсальная Машина Тьюринга (1413 загрузок)
Универсальная машина Тьюринга (version 2) (689 загрузок)
Расписание занятий на Delphi (582 загрузок)
Создание теста. Тестирование. Проверка результатов. (499 загрузок)
Приложение для рисования "Paint" (269 загрузок)
Нахождение НОК и НОД 4-х чисел (247 загрузок)
Ввод массива с помощью Edit (244 загрузок)
База данных о нобелевских лауреатах. Access (192 загрузок)
Двумерные массивы. Смена строк местами (191 загрузок)


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