program maximalniusek;
var d, x: integer;
begin
d :=0;
writeln('Zadejte cisla posloupnosti (tuto posloupnost ukoncite cislem NULA):');
repeat
read(x);
if x<>0 then
begin
if x=x then
d :=d+1
else d :=d+0
end;
until x=0 ;
writeln (d);...
Založil kejta; 21 názorů, poslední 30. 10. 2013 – nevyřešeno
Založil kejta; 21 názorů, poslední 30. 10. 2013 – nevyřešeno