Показать сообщение отдельно
Старый 02.04.2013, 15:37   #3 (permalink)
annansk
Новичок
 
Регистрация: 02.04.2013
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

у меня есть задача похожая на первую,в первой задаче дробь,а у меня целое число
{$APPTYPE CONSOLE}
uses
SysUtils,windows;
var
sDv: string;
iMod, iDch, iDchr :integer;
begin
setconsolecp(1251);
setconsoleoutputcp(1251);

Write('десятичноечисло: ');
Readln(iDch);
iDchr := iDch;
while iDch >= 2 do
begin
iMod := iDch mod 2;
iDch := iDch div 2;
sDv := IntToStr(iMod) + sDv;
end;
sDv := IntToStr(iDch) + sDv;
Writeln(iDchr, '(10) = ', sDv, '(2)');
Readln;
end.
я только приступила,так что не знаю что смогу сделать с других задачах
annansk вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070