// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(ReadInteger('n='), 1, 100); a.Println; // общее
Println('Максимальный четный ', a.Where(t -> t.IsEven).Max); // задача 1
Print('Второй минимальнывй нечетный'); // задача 2
a.Where(t -> t.IsOdd).OrderDescending.Skip(1).Take(1).Println // задача 2
end.
Пример
n= 15
67 8 60 1 96 40 73 25 39 93 64 89 40 69 9
Максимальный четный 96
Второй минимальнывй нечетный 89
Задание 1
#include <iostream>
using namespace std;
int main() {
int a, b;
cin >> a >> b;
cout << a - b;
}
Задание 2
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int a;
cin >> a;
cout << pow(a, 2) << ' ' << pow(a, 3)<< ' ' << pow(a, 5);
}
Задание 3
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int a;
cin >> a;
cout << "The next number for the number " << a << " is " << a + 1 <<"!\n" <<"The previous number for the number "<< a << " is " << a - 1 <<"!";
}
Задание 4
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int a;
cin >> a;
cout << (3 * pow(a, 3) + 18 * pow(a, 2)) * a + 12 * pow(a, 2) - 5;
}
Задание 5
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int a, b, c;
cin >> a >> b >> c;
cout << a % 7 << "\n" << b % 7 << "\n" << c % 7;
}
Задание 6
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int a, b, c, a1, b1, c1;
cin >> a >> a1 >> b >> b1 >> c >> c1;
cout << a1 % (8 - a) << "\n" << b1 % (8 - b) << "\n" << c1 % (8 - c);
}
