<em>// PascalABC.NET 3.2, сборка 1504 от 09.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),0,99); a.Println;
var s:=a.Partition(x->x.IsEven);
if s[0].Count<=s[1].Count then Writeln(s[0].Min)
else Writeln(s[1].Min)
end.
<u>Примеры</u>
n= 9
33 43 60 94 5 19 84 58 6
5
n= 10
54 55 71 65 79 88 71 98 8 71
8
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString.Reverse.Println
end.
<u>Пример</u>
рука
акур
Var s:string;
begin
writeln('Как тебя зовут?');
readln(s);
writeln('Здравствуй, ',s,'!');
writeln(s,' пишет программу')
end.
CLS
A$ = ""
B$ = "111"
FOR I = 1 TO 5 STEP 1
INPUT A$
IF A$ = "111" THEN PRINT "Молодец": END
IF LEN(A$) <> 3 THEN PRINT "Введено мало символов"
IF LEN(A$) = 3 AND A$ <> B$ THEN PRINT "Неправильный пароль"
NEXT I