// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var mh:=Arr(0.9,1.3,3.4,300.0,1000.0);
var g:=9.8;
foreach var h in mh do Writeln(h:6:1,Sqrt(h/g):8:2)
end.
Результат (форматирование здесь нарушено из-за использования пропорционального шрифта, на самом деле оно есть)
0.9 0.30
1.3 0.36
3.4 0.59
300.0 5.53
1000.0 10.10
begin
var x:=0.0;
while x<=4.01 do begin<br> Writeln(x:3:1,2+x*x+Sin(2*x):15:5);
x+=0.5
end
end.
Результат
0.0 2.00000
0.5 3.09147
1.0 3.90930
1.5 4.39112
2.0 5.24320
2.5 7.29108
3.0 10.72058
3.5 14.90699
4.0 18.98936