sinneris

1. Parenkite programą „Skaičiuoja“, kuri įvedus gyvūnų ir žmonių skaičių, pateiktų tokią informaciją ekrane: Kiek iš viso kojų, kiek rankų, kiek akių bei galvų yra. Gyvūnų skaičių įvesime taip: Pirma suvedame kiek keturkojų, po to kiek dvikojų ir tik po to, kiek bekojų (pvz. žuvų). Parenkite duomenų suvedimui procedūrą. Rezultatus galite spausdinti arba iš procedūros, arba iš pagrindinės programos

jei gali dar tokia padaryk

1. Parenkite programą „Skaičiuoja“, kuri įvedus gyvūnų ir žmonių skaičių, pateiktų tokią informaciją ekrane: Kiek iš viso kojų, kiek rankų, kiek akių bei galvų yra. Gyvūnų skaičių įvesime taip: Pirma suvedame kiek keturkojų, po to kiek dvikojų ir tik po to, kiek bekojų (pvz. žuvų). Parenkite duomenų suvedimui procedūrą. Rezultatus galite spausdinti arba iš procedūros, arba iš pagrindinės programos

didelis diekui :lol:

ivedu 25 i faila tai raso 25 zmoniem nepakaks o kaip kad rasytu 13 zmoniu? kiek suprantu reik daryt

25

writeLn(zmoniu/2,' zmoniu, pirstiniu nepakaks') bet kaip padaryt, kad nerasytu 1.2500000000..... reikia keist tipa (real, integer) tiek tezinau Ar ka? :lol:

TALKOJE

Į failą įvedami tokie duomenys: pirmoje eilutėje parašoma, kiek žmonių atėjo įtalką, antroje eilutėje užrašoma, kiek medžiaginių pirštinių vienetų yra sudėta vienoje didelėje dėžėje. Parašykite programą, kuri patikrintų ar visiems atėjusiems pakaks po porą pirštinių.

Pvz.

failas ekranas

25

25 Nepakaks

13 žmonių negaus pirštinių

failas ekranas

62

150 Pakaks pirštinių

buciau dekingas