od fake man » pát pro 10, 2010 21:56
Dobrý deň, vedel by mi tu niekto pomôcť s programom ktorý vypočíta ciferný súšet hocikolko hociakých čísel a ešte napíše kolko z nich bolo kladných a kolko záporných ?
môj program je takýto ale free pascal mi vyhadzuje chybu v end. a že nevie prečítať premennú čo je blbosť.
Tu je program:
program cif_sucet_n_cisel;
uses crt;
var n,i,cislo,k,z,zsucet,ksucet,sucet:integer;
begin
write('zadaj pocet cisiel ktorych ciferny sucet chces');read(n);
for i:=1 to n do
begin
write('napis',i,' . cislo');read(cislo);
if cislo>0 then begin
k:=k+1;
while cislo<>0 do begin
ksucet:=ksucet+cislo mod 10;
cislo:=cislo div 10;
end;
end;
if cislo<0 then begin
z:=z+1;
while cislo<>0 do begin
zsucet:= zsutec+(abs(cislo mod 10));
cislo:=cislo div 10;
end;
end;
end;
sucet:= zsucet+ ksucet;
writeln('zapornych cisel je',z,'ich sucet je',zsucet);
writeln('kladnych cisel je',k,' ich sucet je',ksucet);
writeln('sucet vsetkych cisel je',sucet);
readln;
end.
Dobrý deň, vedel by mi tu niekto pomôcť s programom ktorý vypočíta ciferný súšet hocikolko hociakých čísel a ešte napíše kolko z nich bolo kladných a kolko záporných ?
môj program je takýto ale free pascal mi vyhadzuje chybu v end. a že nevie prečítať premennú čo je blbosť.
Tu je program:
program cif_sucet_n_cisel;
uses crt;
var n,i,cislo,k,z,zsucet,ksucet,sucet:integer;
begin
write('zadaj pocet cisiel ktorych ciferny sucet chces');read(n);
for i:=1 to n do
begin
write('napis',i,' . cislo');read(cislo);
if cislo>0 then begin
k:=k+1;
while cislo<>0 do begin
ksucet:=ksucet+cislo mod 10;
cislo:=cislo div 10;
end;
end;
if cislo<0 then begin
z:=z+1;
while cislo<>0 do begin
zsucet:= zsutec+(abs(cislo mod 10));
cislo:=cislo div 10;
end;
end;
end;
sucet:= zsucet+ ksucet;
writeln('zapornych cisel je',z,'ich sucet je',zsucet);
writeln('kladnych cisel je',k,' ich sucet je',ksucet);
writeln('sucet vsetkych cisel je',sucet);
readln;
end.