porgramovanie v jazyku dev pascal

Hulino

potrebujem pomoct ....je to jednoducha uloha ,ale nakolko ja sa neviem ani pohnut v pascale tak potrebujem od nekoho pomoct...diky velmy pekne...

uloha:Polovnici urobili hon na zajacov a bazantov.Na konci chceli zistit,kolko coho ulovili.Boli uz ale taki ustati,ze nerozoznali zajaca od bazanta.Jedneho z nich napadlo,ze by mohli spocitat vsetky kusy,ktore ulovili, a celkovy pocet nôh.Z toho by sa malo dat spocitat ,kolko bolo zajacov a kolko bazantov.Pretoze boli velmi ustatí,pri rataní sa mohli aj pomylit.Vypocitajte,kolko bazantov a zajacov ulovili a urobte osetrenie nezmyselne zadanych hodnôt

feromakovi

ďakujem, že som si mohol trošku potrápiť mozgové bunky

Kód: Vybrať všetko

program lov;
uses crt;
var nohy,zver,bazant,zajac:integer;
flag:boolean;
begin
clrscr;
repeat
write('Zadaj pocet noh: ');readln(nohy);writeln;
if (nohy mod 2)<>0 then writeln('pocet noh nesmie byt neparny');
until (nohy mod 2)=0;
repeat
flag:=true;
write('Zadaj pocet zverov: ');readln(zver);writeln;
if ((nohy div 4)+((nohy mod 4)div 2)>zver)or(zver>(nohy div 2)) then begin
                                                                     writeln('pocet noh nezodpoveda!');
                                                                     flag:=false;
                                                                     end;
until flag;
zajac:=(nohy div 4);
bazant:=((nohy mod 4)div 2);
while zajac+bazant<>zver do begin
                            zajac:=zajac-1;
                            bazant:=bazant+2;
                            end;
writeln;
write('Zastrelili ',zajac,' zajacov a ',bazant,' bazantov.');
readln;
end.

mne to fungovalo dúfam, že bude aj tebe

pre istotu ti to aj upnem.

porgramovanie v jazyku dev pascal

porgramovanie v jazyku dev pascal

odpoveď