Informatikos uždaviniai

1.Elektroninis laikrodis rodo laiką: valandas, minutes, sekundes (h, m, s). Sudarykite programą, kuri nustatytų, kiek laiko rodys laikrodis po sekundės. program Programa1; Var H, M, S, K, L, T: longint; begin WriteLn('iveskite Laika Valandas, Minutes, Sekundes'); Readln (H, M, S); L := M * 60; K := H * 3600; T := L + K + S + 1; H := T div 3600; T := T mod 3600; M := T div 60; S := T mod 60; If H > 25 Then H := 0; Writeln (H, ':', M , ':' , S); Readln; end. 2.Pirmos lietuviškos centų monetos išėjo 1925 metais. Tai buvo 50, 20, 10, 5, 2 ir 1 cento vertės bronzinės monetos. Duotą pinigų sumą litais ir centais (Lt, Cnt) pakeiskite nurodytomis monetomis. Program Programa2; Var Lt, Cnt, C50, C20, C10, C5, C2, C1, K: longint; Begin Writeln ('Iveskite Lt ir Cnt'); Readln (Lt, Cnt); Cnt := Cnt + (Lt * 100); If Cnt div 50 0 then C50 := Cnt div 50; K := C50 * 50; Cnt := Cnt - k; If Cnt div 20 0 then C20 := Cnt div 20; K := C20 * 20; Cnt := Cnt - k; If Cnt div 10 0 then C10 := Cnt div 10; K := C10 * 10; Cnt := Cnt - k; If Cnt div 5 0 then C5 := Cnt div 5; K := C5 * 5; Cnt := Cnt - k; If Cnt div 2 0 then C2 := Cnt div 2; K := C2 * 2; Cnt := Cnt - k; If Cnt div 1 0 then C1 := Cnt div 1; K := C1 * 1; Cnt := Cnt - k; If C50 0 then writeln ('jums reikės ',C50,' 50 centu vertes monetos'); If C20 0 then writeln ('jums reikės ',C20,' 20 centu vertes monetos'); If C10 0 then writeln ('jums reikės ',C10,' 10 centu vertes monetos'); If C5 0 then writeln ('jums reikės ',C5,' 5 centu vertes monetos'); If C2 0 then writeln ('jums reikės ',C2,' 2 centu vertes monetos'); If C1 0 then writeln ('jums reikės ',C1,' 1 centu vertes monetos'); readln; End. 3.Skaičius sudaromas iš reikšminių ir nereikšminių (nulių) skaitmenų. Nustatykite, kiek natūraliajame keturženkliame skaičiuje yra reikšminių ir nereikšminių skaitmenų. Program Programa3; Var a, b, c, x, k, p, o: integer; Begin Writeln ('ieskite keturzenkli sk'); Readln (x); b := x div 1000; a := x div 100 mod 10; c := x div 10 mod 10; k := x mod 10; p := 0; o := 0; if b = 0 then p := p + 1 else o := o + 1; if a = 0 then p := p + 1 else o := o + 1; if c = 0 then p := p + 1 else o := o + 1; if k = 0 then p := p + 1 else o := o + 1; writeln ('nereiksminiu ', p); writeln('reiksminiu ', o); readln; End. 4.Skaičius, sudarytas iš trijų skaitmenų, vadinamas Armstrongo skaičiumi, jei jo skaitmenų, pakeltų 3-uoju laipsniu, suma lygi pačiam skaičiui. Pvz.: 153=13+53+33. Nustatykite, ar triženklis skaičius N yra Armstrongo. Program Programa4; Var N, A, B, C: longint; Begin Writeln ('Iveskite Skaiciø'); Readln (N); A := N div 100; B := N div 10 mod 10; C := N mod 10; If N = (A * A * A) + (B * B * B) + (C * C * C) then Writeln (' jusu vistes skaicius yra amstrongo skaicius') else Writeln (' jusu vistes skaicius nera amstrongo skaicius'); readln; End. 5.Loterijos bilietą sudaro šešiaženklis numeris. Loterijoje laimi tas bilietas, kurio numerio skaitmenų suma dalosi iš 4. Nustatykite, ar loterijos bilietas yra laimingas. program Programa5; Var a, q, w, e, p, r, t, k: longint; begin WriteLn('trizenkli skaiciu'); Readln (a); q := a div 100000; w := a div 10000 mod 10; e := a div 1000 mod 10; k := a div 100 mod 10; r := a div 10 mod 10; t := a mod 10; p := q + w + e + r + k + t; If p mod 4 = 0 Then Writeln ('laimingas') Else writeln ('nelaimingas'); Readln; end. 6.Nustatykite, kuriame ketvirtyje yra plokštumos taškas A(x, y)? program Programa6; Var x, y: integer; begin WriteLn('iveskite tasko A koordinates'); Readln (x, y); If (x > 0) and (y > 0) then writeln ('taskas 1 asyje') else If (x > 0) and (y 0) then writeln ('taskas 2 asyje') else If (x 0) then writeln ( 'Taskas tarp 1 ir 2 asies') else if (x 0 ) and (y = 0) then writeln ( 'Taskas tarp 1 ir 4 asies'); Readln; end. 7.Paskutinis knygos puslapis pažymėtas skaičiumi 1915. Kiek reikia skaitmenų knygos puslapiams sunumeruoti (numeracija pradedama nuo vieneto)? Program Programa7; Var S, I :longint; Begin S := 0; For I := 1 to 1915 do if I = 10) and (I = 100) and (I = 1000 Then S := S+4; Writeln (' jums reikes ', S, ' skaitmenu'); readln; End. 8.Beždžionė šeriama taip: pirmą dieną jai duodama B bananų, o kiekvieną kitą dieną P % bananų mažiau, negu ankstesnę dieną ir dar plius S bananų. Po kelių dienų ištuštės bananų dėžė, jeigu iš pradžių buvo 2,5 karto daugiau, negu sušėrė pirmą dieną? Program Programa8; Var B, P, N, K: real; Var D, S : longint; Begin Writeln ('iveskite Kiek bananu norite duoti snediena'); Readln (B); N := B * 2.5; Writeln ('iveskite Procentus'); Readln (P); P := P / 100; Writeln ('iveskite Kiek bananu norite duoti kita diena'); Readln (S); D := 1; N := N - B; K := B * P; B := B - k; While N > 0 do Begin D := D + 1; K := B * P; B := B - K + S; N := N - B ; If N 0 then P := N div K else Writeln (' pirmajame skaiciuje nera antrojo skaiciaus'); If P > 0 then Writeln (' Pirmajame skaiciuje yra antrasis skaicius ir kartojasi ', P,' karta'); Readln; end. 10.Skaičius yra sudaromas iš reikšminių ir nereikšminių skaitmenų (nulių). Nustatykite, kiek natūraliajame skaičiuje N yra reikšminių ir nereikšminių skaičių. Program Programa10; Var X, R, A, P, N: longint; Begin Writeln ('iveskite skaiciu'); Readln (x); R := 0; N := 0; While X > 0 do Begin A := X mod 10; If A > 0 Then P:= P +1 Else N := N + 1; X:= X div 10; end; writeln ('nereiksminiu ', N); writeln('reiksminiu ', P); readln; End.

Daugiau informacijos...

★ Klientai rekomenduoja

Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?

Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!