begin
var a := ArrRandom(16, -20, 20); a.Println;
a.Numerate(0).Where(x -> x[1].isEven)
.Select(x -> x[0]).Println;
end.
Простое
.................
Шесть единиц само число будет записано как 101110011
<span>выбирай
#include <stdio.h>
#include <stdlib.h>
struct LIST {
int number;
struct LIST *next;
};
//-----------------------------------------------------------------------------
void Push(struct LIST** list, int number) {
struct LIST* node = malloc(sizeof(struct LIST));
node->number = number;
node->next = *list;
*list = node;
}
//-----------------------------------------------------------------------------
void Print(const struct LIST* list) {
if (list) {
Print(list->next);
printf("\%d ", list->number);
}
}
//-----------------------------------------------------------------------------
int main() {
int i = 10;
struct LIST* list = NULL;
while (i--) {
Push(&list, i + 1);
}
</span>
//---(это разделение разных программ)
var
a, i: <em>integer</em>;
begin
readln(a);
i := 50;
while (i <= 950) do
begin
writeln(String.Format('{0} гр. сыра стоит {1} руб.', i, a / 1000 * i));
i += 50;
end;
<span>end.</span>