ДАЮ 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
В программе Паскаль
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
More Questions From This User See All
Answers & Comments
===== 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.