Valaki segítene megoldani ezt a programot Turbo Pascalban?
Feladat:
Készítsünk programot, amely beolvas egy egész számot, majd elosztja 2-vel annyiszor, ahányszor lehet és közben felírja a számot a kettes számok szorzataként megszorozva egy olyan számmal, amely már nem osztható 2-vel.
Elkezdtem, eddig jutottam el:
program gyak;
uses crt;
var i,h:real;
begin
clrscr;
writeln('Adjon meg egy számot: ');
read(i);
while szam mod 2=0 do
begin
h:=
end;
else
writeln(i,' = ',i);
writeln(i,' = ',h);
readkey;
end.
Nem vagyok biztos benne, hogy jó. De a segítséget köszönöm szépen!!
válasza:Valamit kihagytál szerintem, mert így nem is indul el. Remélem így megfelel:
program gyak;
uses crt;
var i,h:real;
begin
h:=0;
clrscr;
writeln('Adjon meg egy számot: ');
readln(i);
writeln('Az eredeti szám: ',i);
while szam mod 2=0 do
begin
h:=h+1;
i:=i div 2;
end;
writeln('A kettő ennyiszer volt meg benne: ' = ',h);
writeln('Az osztás után a maradék: ',i);
readkey;
end.
válasza:Ha működik az már félsiker, de tényleg nem értettem meg egészen.
Tehát ha mondjuk a 36-ot adom meg, akkor azt kell kiírnia hogy:
2*2*2*3
?
program gyak;
uses crt;
var i,h:real;
begin
clrscr;
writeln('Adjon meg egy számot!');
readln(i);
while szam mod 2=0 do
begin
write('2*');
i:=i div 2;
end;
writeln(i);
readkey;
end.
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!