//PascalABC.NET var nt, dt : integer; begin var n1 := 1; var d1 := 1; var n := 2; var d := 1; var i := 2; while i < 5 do begin nt := n; dt := d; n := n + n1; n1 := nt; d := d + d1; d1 := dt; i += 1 end; writeln(n,'/',d);
n1:=1; d1:=1; n:= 2; d:=1; while (abs(n/d - n1/d1) > 0.001) do begin nt := n; dt := d; n := n + n1; n1 := nt; d := d + d1; d1 := dt; end; writeln(n,'/',d,'-',n1,'/',d1,'=',n/d-n1/d1) end.
// PascalABC.NET 3.3, сборка 1561 от 02.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-99,99).ConvertAll(x->real(x/10)); a.Println; var imax:=a.Select(x->Abs(x)).ToArray.IndexMax; var ip:=a.FindIndex(x->x>0)+1; Writeln('Номер максимального по модулю элемента: ',imax+1); Writeln('Сумма элементов после первого положительного: ',a[ip:].Sum:0:1) end.
Пример n= 13 -5.9 2.8 -8.2 4.8 1.2 -7.3 6.7 4 -5.8 6.4 2.4 -9.3 -8.6 Номер максимального по модулю элемента: 12 Сумма элементов после первого положительного: -13.7
if (2*x+y/3)<>sqr(x+5) then ...