1. Различие состоит в том, что платные версии в основном полныйе в которых вы можете использовать полный функционал.
4. при пиратстве с программой может на компьютер попасть вирус.
<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=new integer[6,3];
for var i:=0 to 5 do begin
a[i,0]:=sqr(i+3);
a[i,1]:=2*(i+3);
a[i,2]:=a[i,0]-a[i,1];
end;
a.Println(3)
end.
<u>Результат</u>
9 6 3
16 8 8
25 10 15
36 12 24
49 14 35
64 16 48
//PascalABC.NET 3.0
const n = 5;
begin
var a := ArrRandomReal(n);
var b := ArrRandomReal(n);
write('Длины первого катета: ');
foreach var i in a do write(i : 5 : 2);
write(NewLine, 'Длины второго катета: ');
foreach var i in b do write(i : 5 : 2);
var imax := 0; for var i := 1 to n - 1 do
if a[imax] * b[imax] < a[i] * b[i] then
imax := i;
writeln(NewLine, 'Номер: ', imax + 1);
writeln('Катеты: ', a[imax] : 0 : 2, ' ', b[imax] : 0 : 2);
writeln('Площадь: ', a[imax] * b[imax] / 2 : 0 : 2);
<span>end.</span>
<span>Гипер текст - </span><span> Структурный текст </span>
Сколько время.Нарисуй часы.