Задача на Pascal

[ivan7771]

Напечатать "столбиком" все целые числа от а до b (значения а, b вводятся с клавиатуры; b>=а).
только,поподробнее.

[Кольша]

var
 i,a,b:integer;
begin
 writeln('a: ?');
 read(a);
 writeln('b: ?');
 read(b);
 if b<а then
  writeln('bad B')
 else
  for i:=a to b do
   writeln(i);
end;

[ivan7771]

Сообщение от Кольша

var
 i,a,b:integer;
begin
 writeln('a: ?');
 read(a);
 writeln('b: ?');
 read(b);
 for i:=a to b do
  writeln(i);
end;

а что означают вопросы ?

[Кольша]

Запустите код и увидете

[Poma][a]

end;

Всё-таки наверное end.

Напечатать "столбиком" все целые числа от а до b (значения а, b вводятся с клавиатуры; b>=а).

А и B - могут быть вещественными?

[Кольша]

Poma][a, привычка..

[ivan7771]

Сообщение от Poma][a

Всё-таки наверное end.

А и B - могут быть вещественными?

да,могут быть вещественными

[Poma][a]

Решение потер. (См. ниже)

[Sciv]

i:=Trunc(a);
if i<>a then i:=Round(a);

Мой вариант с более простым ветвлением. Он не лучше, он просто альтернативный в смысле длины кода

[Poma][a]

Посидел.. подумал.. и понял что я ошибся..

i := Trunc(a);
if i <> a then
      Inc (i);

Без развилки, но всё равно не айс

i := Trunc(a) + Ord(i<>a)

Sciv, спасибо!