Вывести "столбиком" следующие числа : 2,1 2,2 2,3 ... 2,8.

Question

Вывести "столбиком" следующие числа : 2,1 2,2 2,3 ... 2,8.

Answer 1

Var a:real;
begin a:=2;
  while a<2.8  do begin<br>a:=a+0.1;
writeln(a);
end;
end.