Funkcija pascale

Gal kas nors gali padėti išspręsti šį užduotį:

Rasti 3 skaičių, kurie daugiau negu X, jų skaitmenių suma turi būti vienoda.

Tai reikia padaryti su function. Iš anksto dėkui už atsakymą.

na jeigu užduotį aiškiau parašytum tai gal padaryčiau :rolleyes:

Ačiu, šita jau nereikia. Va šita gal būt žinote:

Rasti 5 skaičių, kurie yra mažesni, negu įvestas skaičius P.

Padarai cikla kad nuo tavo ivesto skaiciaus atiminetu 5 kartus pvz po 1 ir viskas :unsure:

cia ziuriu atejo rugsejo 1, tai pirmakursiai vel rasinet pradejo su paprastom paskalio programelem :))

iš tiesų užduoties nepagaunu paaiškink normaliai :)

iš tiesų užduoties nepagaunu paaiškink normaliai :)

Pavyzdžiui, aš įvedu skaičių 10. Programa turi man parodyti dar 5 skaičių, kurie yra mažesni negu mano įvestas skaičius. Pavyzdžiui, aš įvedžiui 10, programa gali man parodyti šitus skaičius: 1,2,3,4,5. Šitie skaičiai turi būti parodytos atsitiktinę tvarką.

Pavyzdžiui, aš įvedu skaičių 10. Programa turi man parodyti dar 5 skaičių, kurie yra mažesni negu mano įvestas skaičius. Pavyzdžiui, aš įvedžiui 10, programa gali man parodyti šitus skaičius: 1,2,3,4,5. Šitie skaičiai turi būti parodytos atsitiktinę tvarką.

program Noname8;
var x, i : integer;
begin
 WriteLn('iveskite skaiciu: ');
 Readln(x);
   for i := 1 to 5 do
       WriteLn(x-i);
   Readln;
end.