- Huawei Watch GT 5 Pro - egészség + stílus
- iPhone topik
- Otthagytuk a fogunkat a Dreame központjában
- Akciófigyelő: kedvezménnyel nyit az Earfun Air Pro 4+
- Apple iPhone SE (3. generáció) - szélsebes múltidézés
- Milyen okostelefont vegyek?
- A középkategóriában frissített a Qualcomm
- Fotók, videók mobillal
- Apple iPhone 17 - alap
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
Új hozzászólás Aktív témák
-
^^|CC|^^
tag
válasz
Gyuri16
#1758
üzenetére
nah megcsináltam eddig nekem így néz ki:
var a,i: integer;
s,nullak: string;
m: byte;
begin
try
a:=strtoint(edit2.text);
if a<0 then raise exception.create('Ne legyen negatív!');
if a=0 then s:='0'
else begin
s:='';
while a>0 do begin
m:= a mod 2;
s:=inttostr(m)+s;
a:=a div 2
end;
nullak:='';
for i:=1 to 4-length(s) mod 4 do
nullak:=nullak+'0';
if length(nullak)=4 then
nullak:='';
s:=nullak+s;
end;
showmessage('Számocska:'+#13+#13+s);
except
showmessage('Hiba!!!');
end;
end;a félkövér amit javasoltál... most legalább már tölti őket 0-kal, de még mindig nem tagolja fel 4sével...

Új hozzászólás Aktív témák
- MSI Katana GF76 - 17.3"FHD 144Hz - i5-11400H - 8GB - 512GB - Win11 - RTX 3050 Ti - MAGYAR
- 2027ig GYÁRI garancia Lenovo V14 / Ryzen3-7320 / 8gb DDR4 ram / 500gb NvMe SSD / WIN11
- Moza R5 bundle +brake kit + formula es wheel eladó
- i5 9600K GEFORCE RTX 2060 6GB DDR6 16GB RAM Gamer PC
- Xiaomi Redmi Note 12 Pro 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! ASUS H510M i7 10700K 16GB DDR4 512GB SSD RTX 3070 8GB ZALMAN S2 TG Chieftec 750W
- HIBÁTLAN iPhone 13 mini 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3285
- Jo Nesbo: LEOPÁRD (nem olvasott)
- GYÖNYÖRŰ iPhone 13 128GB Starlight- 1 ÉV GARANCIA, Kártyafüggetlen,MS3435
- 4G Microsoft Surface Go 2 m3-8100Y 8GB 128GB 1 év garancia
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest




