Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.01.2012, 14:59   #1
maks22
Пользователь
 
Регистрация: 30.01.2012
Сообщений: 21
По умолчанию задача - найти произведение первой цифры целой части и третей цифры дробной части вещественного числа. LAZARUS

Написать программу для решения поставленной задачи.
Примечание.Цифры в числе нумеруются следующим образом:в целой части -начиная с раздела едениц,в дробной части-начиная с десятых.


А вот сама задача:
Найти произведение первой цифры целой части и третей цифры дробной части вещественного числа. LAZARUS
maks22 вне форума Ответить с цитированием
Старый 30.01.2012, 15:20   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Код:
( trunc(A) mod 10) * ( trunc(A*1000) mod 10 )
Serge_Bliznykov вне форума Ответить с цитированием
Старый 30.01.2012, 19:53   #3
maks22
Пользователь
 
Регистрация: 30.01.2012
Сообщений: 21
По умолчанию

И все так просто?некогда бы не подумал,что это так решается,ну спасибо
maks22 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Присвоить целой переменой К первую цифру из дробной части. Delphi Dilex Помощь студентам 4 14.01.2012 03:19
Определение первой цифры дробной части числа Intersap Помощь студентам 2 19.09.2011 00:07
Разделитель целой и дробной части. gusluk Общие вопросы Delphi 2 12.11.2008 08:45
Разделитель целой и дробной части neugadal Microsoft Office Excel 3 09.10.2008 07:20