Var
x:real;
Begin
x:=-5;
repeat
writeln('y = ',sqr(x));
x:=x+0.5;
until(x>5)
End.
Вкантакте однокласникт и твитер
1. Горизонтальной линейки
2.обычный-полужирный курсив-полужирный-курсив
3.второй символ
4.форматирование
5. 9 строк 8 столбцов
<h2>PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)</h2><h2>Код</h2>
- begin
- var arr := Range(0, ReadInteger).Select(x -> x*x).Println;
- end.
<h2>Вывод</h2>
10
0 1 4 9 16 25 36 49 64 81 100
Var s : real;
Begin
S:= (1*14-1/3)*52;
Write(s :5:6);
end.
Смешно, конечно, но выходит так. Просто выводишь определённую формулу, вот и все.