ДАЮ 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
BobbyFresnel:
А это неверная прграмма, она с ошибками. Например, нет repeat, пропущены запятые, ...
Ответы
Ответ дал:
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.
Приложения:
![](https://st.uroker.com/files/8aa/8aae251a0c6077407d6269f3081f5699.jpg)
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад