// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin // 1 var a:=ArrRandom(100,-20,20); a.Println; a.Where(x->x>5).Println; // 2 var b:=ArrRandom(10,-50,50); b.Println; Writeln(b.Average); // 3 var c:=ArrRandom(10,-30,30); c.Println; var d:=c.Select(x->x*x); d.Println end.
int main() { for (int i=1; i<10; i++) { for (int j=0; j<10; j++) cout << i*100+j*10+i << " "; } return 0; }
Результат: 101 111 121 131 ... 979 989 999
3. #include <iostream> using namespace std;
int main() { int s = 0; for (int i=10; i<100; i++) { if ((i % 2 == 0)||(i % 10 == 7)) s +=i; } cout << "s = " << s; return 0; }
Результат: s = 2943
4. #include <iostream> using namespace std;
int main() { int a, b, c, k = 0; for (int i=100; i<1000; i++) { a = i / 100; b = i / 10 % 10; c = i % 10; if ((a==b)||(a==c)||(b==c)) k++; } cout << "k = " << k; return 0; }
