fs7

program Noname0; var b1, b2, b3,b4 : integer; begin WriteLn('Įveskite 3 skaičius'); readln (b1,b2,b3); if b2/b1=b3/b2 then WriteLn('Tai geometrinė progresija, kurios ketvirtas narys ' ,b3*b2/b1) else WriteLn('Tai nėra geometrinė progresija'); Readln; end. kur cia yra klaida nes man neisveda ketvirtojo nario normalaus kai tie skaiciai sudaro geometrine progresija

Sveiki man reikia atlikti su paskaliu tokia uzduoti. uzduotis. Ivesti tris sveikus skaicius, Patikrinti ar jie (isdestyti kokia nors tvarka) sudaro geometrine progresija. Jei taip isveskite sekanti progresijos nari. Jei ne, isveskite aitinkama pranesima. Gal galetumete padeti parasyti?