написать программу которая выводит все числа, начиная с N и заканчивая M(с постусловием на языке паскаль

1

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

2014-04-11T15:57:35+04:00
Var m,n:integer;
begin
writeln ('введи диапазон от n по m');
readln (n,m);
while n<m do begin
write (n,' ');
n:=n+1;
end;
end.
это вроде предусловие
а да точно, прости не так прочитала: Var m,n:integer;
begin
writeln ('введи диапазон от n по m');
readln (n,m);
while n<m do begin
write (n,' ');
n:=n+1;
end;
end.
да блин:Var m,n:integer;
begin
writeln ('введи диапазон от n по m');
readln (n,m);
repeat
write (n,' ');
n:=n+1; until n>m;
end;
end.
и end с ; не нужен