составьте программу,которая выводит нечетные числа. с командой while

1

Ответы и объяснения

2012-10-26T20:59:26+04:00

program z1;

var perv,posl:integer;

begin

readln(perv);

readln(posl);

if perv mod 2 = 0

then perv:=perv+1;

if posl mod 2 = 0 

then posl:=posl-1;

while perv<>posl do

 begin

 write(perv:3);

 perv:=perv+2;

 end;

end.

 

 

 

программа спрашивает сначала, с какого числа, а потом - по какое