### PascalABC.NET ###
begin
var A := ReadSeqInteger('вводи: ', ReadInteger('длина посл-ти: '));
A.Where(p -> p mod 3 = 0).Min.Println;
end.
Задача 1:
#include <iostream>
using namespace std;
int main()
{
int a{}, b{};
cout << "a = ";
cin >> a;
cout << endl << "b = ";
cin >> b;
if (a < b) a *= 2, b *= 3;
else b *= 2, a *= 3;
cout << endl << endl << "a = " << a << endl << "b = " << b;
return 0;
}
Задача 2:
#include <iostream>
using namespace std;
int main()
{
int a{};
cout << "a = ";
cin >> a;
if (!(a % 2)) cout << endl << a * a; //if (!(a % 2)) = теж саме, що й if (a % 2 == 0)
else cout << endl << a * a * a;
return 0;
}
Задача 3:
#include <iostream>
using namespace std;
int main()
{
int sum{};
for (int i = 11; i < 100; i += 2) sum += i;
cout << sum;
return 0;
}
Задача 4:
#include <iostream>
using namespace std;
int main()
{
for (int i = 144; i < 1000; i += 48) cout << i << " ";
return 0;
}
program mas_min_krat3;
var
i,n,m,x:integer;
begin
read(n);
m:=30000;
for i:=1 to n do
begin
read(x);
if (x<m)and(x mod 3=0) then m:=x;
end;
writeln(m);
end.