Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.
Nástěnka
❗22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
❗04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
❗23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.
Nejste přihlášen(a). Přihlásit
Stránky: 1
1)Kladné celé číslo označíme jako „dobré“, jestliže je dělitelné beze zbytku každou svou cifrou. Například číslo 612 je dobré, neboť je dělitelné šestkou, jedničkou i dvojkou. Naproti tomu číslo 512 není dobré, jelikož není dělitelné pěti. Napište program, který pro dané kladné celé číslo N (N není větší než 10000) určí počet všech dobrých čísel z intervalu od 1 do N (včetně). Používejte standardní vstup a výstup.
Příklad vstupu:
25
Odpovídající výstup:
14
Vysvětlení:
V uzavřeném intervalu od 1 do 25 leží těchto 14 dobrých čísel:
1 2 3 4 5 6 7 8 9 11 12 15 22 24
2)Je dáno kladné celé číslo. To načtěte ze standardního vstupu do proměnné celočíselného typu. Potom určete součet jeho cifer ležících na sudých pozicích, počítáno zleva. Tento součet pak zapište na standardní výstup.
Například pro číslo 1234 bude výsledkem 2+4=6. Na výstupu se musí objevit pouze číslo 6.
3)Napište program, který přečte ze vstupu nezáporné celé číslo a vytiskne jeho zápis ve dvojkové soustavě (bez úvodních nul).
Offline
no prave ty ulohy co se tu resili tak jsou podle codexu spatne...hlavne ty casti jako write /zadej cislo) apod jsou naprosto zbytecny a my mame zadat jen na vstupu cislo a na vystupu nam taky vyjde cislo apod...a i kdyz sem to odstranila tak to neslo...protoé to sem pisi znovu a doufam ze mi to tu nekdo napise a bude to fungovat ptz ja uz nwm..
Offline
ja tu ulohu 3 nemuzu teda ale nikde najit..
Offline
a v tom soustu cifer tu mam neustale error a ja proste uz nwm proc:Di kdyz to mam podle reseni ktr bylo tady uvedeno..
Offline
Ahoj, u úlohy 3 je postup následující:
Dokud aktuální (zadané) číslo je větší jak nula opakuj:
vypiš zbytek po dělení akt. čísla dvěma
změň aktuální číslo na celočíselný podíl aktuálního čísla dvěma
vypisované jedničky a nuly ale musíš vypsat v obráceném pořadí.
Kód:
procedure dvojkova(cislo : integer);
var cislo_nove : integer;
begin
cislo_nove := cislo div 2;
if cislo_nove > 0 then
dvojkova(cislo_nove);
write(cislo mod 2);
end;Příklad pro 6:
6 % 2 = 0;
3 % 2 = 1;
1 % 2 = 1;
výstup: 110
Offline
Stránky: 1