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

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...

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