.: Навигация :.
Главная страница сайта

Физика
Информатика
Математика
Периферийные устройства ЭВМ
Дилинг


Карта сайта

О Сайте


.: Поиск по сайту :.
Поиск на metall-komcity.narod.ru

Оригинальные подарки, сувениры, бижутерия из самоцветов, картины и иконы - авторские работы. Форум где вы найдёте книги по рукоделию: бисероплетение, макраме, вязание и т.д. Сайт не только для дам, джентельмены смогут присмотреть подарки своим любимым девушкам из полудрагоценных камней по приемлемым ценам! www.Бижур.ру

.: Разделы -> Информационный -> Информатика, QBasic -> Найти произведение ц... :.
CLS
REM Найти произведение цифр заданного целого четырёхзначного числа
INPUT "Введите четырёхзначное число : ", Number
PRINT : PRINT "цифры числа "; Number; ": ";
Number = ABS(Number)
i = FIX(Number / 1000): PRINT i; ' FIX - целая часть аргумента
j = FIX(Number / 100) MOD 10: PRINT j;
k = FIX(Number / 10) MOD 10: PRINT k;
l = Number MOD 10: PRINT l
P = i * j * k * l
PRINT : PRINT "ОТВЕТ : произведение цифр равно "; P
END
20 Февраль 2007 10:17:06 Опубликовал Max, Автор/источник: -


.: Реклама :.
www.bizhur.ru

fxclub
forex4you

Решения задач ИНИТ КнАГТУ

.: Статистика :.


Поставь +1!


Создание и оформление сайта: Maxter-=Marshalkin=-, г. Комсомольск-на-Амуре 2003-2011 e-mail:
^Наверх^
Сайт создан в системе uCoz