Užduotis: rasti, kiek yra sveikųjų triženklių skaičių, kurie be liekanos dalijasi iš duotų teigiamų skaičių s1 ir s2.
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...
Šį darbą sudaro 299 žodžiai, tikrai rasi tai, ko ieškai!
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ą!
Šis mokslo darbas pasitarnaus tau kaip puikus pavyzdys siekiant aukščiausio pažymio!
Mūsų mokslo darbų bazėje yra daugybė įvairių mokslo darbų, todėl tikrai atrasi sau tinkamą!
Panašūs darbai
Atsisiuntei rašto darbą ir neradai jame reikalingos informacijos? Pakeisime jį kitu nemokamai.
Pirkdamas daugiau nei vieną darbą, nuo sekančių darbų gausi 25% nuolaidą.
Išsirink norimus rašto darbus ir gauk juos akimirksniu po sėkmingo apmokėjimo!