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