Question

ДАЮ 30 БАЛЛОВ! СРОЧНО!

В программе Паскаль

var x:real;

begin

x:=0;

writeln ('x y');
repeat

writeln (x,' ', x*x*x+1);

x:=x+0.2;

until x>1

end.

Чтобы вместо точек у не целых чисел выводились запятые

Например:
Строка вывода
Было

x y

0 1

0.2 1.008

0.4 1.064

0.6 1.216

0.8 1.512

1 2

Стало

x y

0 1

0,2 1,008

0,4 1,064

0,6 1,216

0,8 1,512

1 2

Answer 1

===== PascalABC.NET =====

uses System.Globalization;

begin

 CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator := ',';

 var x := 0.0;

 writeln(' x     y');

 repeat

   System.Console.WriteLine($'{x,3:f1}  {x ** 3 + 1,5:f3}');

   x += 0.2;

 until x > 1

end.