// PascalABC.NET 3.2, сборка 1467 от 02.06.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println; var x:=a.Where(x->x.IsOdd).ToArray; for var i:=1 to x.Count-1 do begin var (j,l):=(i-1,x[i]); while (j>=0) do if x[j]>l then begin x[j+1]:=x[j]; j-=1 end else break; x[j+1]:=l end; var j:=0; for var i:=0 to x.Length-1 do begin while a[j].IsEven do j+=1; a[j]:=x[i]; j+=1 end; a.Println; end.
#include <iostream> using namespace std; int main() { float x = -2; do { cout<<"y("<<x<<") = "<<(-2.4*x*x+5*x-3)<<"\n"; x+=0.5; } while(x <= 2); return 0; }
#include <iostream> using namespace std;
int main() { int N; double S = 0; cout <<"N = ", cin >> N; for(int i = 0; i < N; i++) S+=i%24; cout <<"S = "<<S; return 0; }
#include <iostream> using namespace std;
int main() { double S = 1000000; int L = 0; do { S*=1.08; S-=100000; cout<<L<<": "<<S<<'\n'; L++; }while(S > 0); cout <<"Kol-vo let = "<<L; return 0; }
2) ¬ (X \/ Y) /\ (X /\ ¬Y)= ¬ X /\ ¬ Y /\ X /\ ¬Y=0