plz parasykit programa

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

program Noname1;
var pirstiniu, zmoniu: longint;
f: text;
begin
assign(f, 'duomenys.txt'); reset(f);
readLn(f, zmoniu);
readLn(f, pirstiniu);
close(f);
if zmoniu * 2 > pirstiniu then
	writeLn(zmoniu,' zmoniu, pirstiniu nepakaks')
else
	writeLn('Pirstiniu pakaks visiems ',zmoniu, ' zmonems');
end.

jei irasyta kiek pirstiniu poromis, tai ta '* 2' nutrink

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:

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:

writeLn(skaicius:0:0); (jei real)

O siaip tai jei longint, arba integer, tai dalybai naudok div...

didelis diekui :lol:

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

Tarkim perskaitai į kintamuosius a (keturkojai), b (žmonės) ir c (kiti gyvūnai) duomenis. Tada gali iš karto spausdinti:

WriteLn('Kojos: ', a*4 + b*2);

WriteLn('Rankos: ', b*2);

WriteLn('Akys: ', a*2 + b*2 + c*2);

WriteLn('Galvos: ', a+b+c);