Laboratoriniai darbai

Free Pascal (FP). Triženkliai, kurie dalijasi iš nurodytų skaičių

9.6   (2 atsiliepimai)
Free Pascal (FP). Triženkliai, kurie dalijasi iš nurodytų skaičių 1 puslapis
Free Pascal (FP). Triženkliai, kurie dalijasi iš nurodytų skaičių 2 puslapis
www.nemoku.lt
www.nemoku.lt
Aukščiau pateiktos peržiūros nuotraukos yra sumažintos kokybės. Norėdami matyti visą darbą, spustelkite peržiūrėti darbą.
Aprašymas

Užduotis: rasti, kiek yra sveikųjų triženklių skaičių, kurie be liekanos dalijasi iš duotų teigiamų skaičių s1 ir s2.

Ištrauka

Rasti, kiek yra sveikųjų triženklių skaičių, kurie be liekanos dalijasi iš duotų teigiamų skaičių s1 ir s2.
Pradžia: Sveikųjų triženklių skaičių, kurie be liekanos dalijasi iš duotų teigiamų skaičių s1 ir s2, kiekio skaičiavimas.
Klaviatūra įvedami du teigiami skaičiai s1 ir s2.
kiek := 0
i := 100, 999
T\ (i mod s1 = 0) ir (i mod s2 = 0)? /N
kiek:= kiek + 1;
kiek := kiek * 2;
Išvesti rezultatą kiek
Pabaiga
1.3. Programos tekstas
// L2. Rasti, kiek yra sveikųjų triženklių skaičių, kurie be liekanos
// dalijasi iš duotų teigiamų skaičių s1 ir s2.
// Data:
program L2_13;
uses Crt; //Suaktyvinama biblioteka Crt
var i, // Ciklo kintamasis
s1, s2, // Klaviatūra įvedami teigiami skaičiai — dalikliai
kiek : integer; // Sveikų triženklių skaičių, kurie dalijasi iš s1 ir s2, kiekis
begin
TextBackground (lightGreen); // Paryškinama užduotis ir...

Daugiau informacijos...

Šį darbą sudaro 299 žodžiai, tikrai rasi tai, ko ieškai!

★ 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!

Detali informacija
Darbo tipas
Failo tipas
Word failas (.doc)
Apimtis
2 psl., (299 ž.)
Darbo duomenys
  • Informacinių technologijų laboratorinis darbas
  • 2 psl., (299 ž.)
  • Word failas 46 KB
www.nemoku.lt Atsisiųsti šį laboratorinį darbą
Privalumai
Pakeitimo garantija Darbo pakeitimo garantija

Atsisiuntei rašto darbą ir neradai jame reikalingos informacijos? Pakeisime jį kitu nemokamai.

Sutaupyk 25% pirkdamas daugiau Gauk 25% nuolaidą

Pirkdamas daugiau nei vieną darbą, nuo sekančių darbų gausi 25% nuolaidą.

Greitas aptarnavimas Greitas aptarnavimas

Išsirink norimus rašto darbus ir gauk juos akimirksniu po sėkmingo apmokėjimo!

Atsiliepimai
www.nemoku.lt
Dainius Studentas
Naudojuosi nuo pirmo kurso ir visad randu tai, ko reikia. O ypač smagu, kad įdėjęs darbą gaunu bet kurį nemokamai. Geras puslapis.
www.nemoku.lt
Aurimas Studentas
Puiki svetainė, refleksija pilnai pateisino visus lūkesčius.
www.nemoku.lt
Greta Moksleivė
Pirkau rašto darbą, viskas gerai.
www.nemoku.lt
Skaistė Studentė
Užmačiau šią svetainę kursiokės kompiuteryje. :D Ką galiu pasakyti, iš kitur ir nebesisiunčiu, kai čia yra viskas ko reikia.
Palaukite! Šį darbą galite atsisiųsti visiškai NEMOKAMAI! Įkelkite bet kokį savo turimą mokslo darbą ir už kiekvieną įkeltą darbą būsite apdovanoti - gausite dovanų kodus, skirtus nemokamai parsisiųsti jums reikalingus rašto darbus.
Vilkti dokumentus čia:

.doc, .docx, .pdf, .ppt, .pptx, .odt