2,3,5,7,11,13,17,19,23,29,31,37,41,43,47.
program HelloWorld;
var a: array of integer;
var N, min, max, i, variable:integer;
begin
min := 32767;
max := 0;
readln(N);
for i := 0 to N do begin
readln(variable);
if (variable > 0) and (variable mod 2 = 0) and (variable > max) then
max := variable;
if (variable > 0) and (variable mod 2 = 0) and (variable < min) then
min := variable;
end;
if (max <> 0) and (min <> 32767) then
writeln(min, ' ', max)
else
writeln(-1);
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var (s,d,e):=(n div 100, n div 10 mod 10,n mod 10);
if n.IsEven then Writeln(s+d+e) else Writeln(e,d,s)
end.
<u>Примеры</u>
n= 531
135
n= 428
14
Var x,y,u:real;
function min(a,b:real):real;
begin
if a>b then min:=b else min:=a;
end;
begin
write('x=');read(x);
write('y=');read(y);
u:=min(x+y,x*y);
writeln(u);
<span>end.</span>