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ų 2 puslapis

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!

★ ★ ★ Patikrinta specialisto! ★ ★ ★

Nuolat dirbame, kad pagerintume visų mūsų turimų mokslo darbų kokybę, todėl informuojame, jog šis rašto darbas buvo patikrintas savo srities specialisto, todėl galite būti užtikrinti dėl šio darbo kokybės.

Norint atsisiųsti šį darbą spausk ☞ Peržiūrėti darbą mygtuką!

Detali informacija

Darbo tipas

Laboratoriniai darbai

Failo tipas

Word failas (.doc)

Apimtis

2 psl., (299 ž.)

Peržiūrėti darbą

Turi dovanų kodą? Spausk čia

Peržiūrėti rašto darbą

Šis mokslo darbas pasitarnaus tau kaip puikus pavyzdys siekiant aukščiausio pažymio!