Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i]<0 then writeln('esti') else writeln ('net');
readln;
end.
Ну там есть такие ячейки 3-ёх цветов, и вот когда они загораются их цвета смешиваются. И получается любой цвет. Присмотрись к монитору внимательно и увидишь) (Цвета: синий, красный и зелёный) <span />
Он круглый блестящий на пластинку похож поставишь в устройство покажет все что угодно
1)c
2)b
3)d
4)d
5)a +c
6)b+d
7)b
8)c
9)a
10)a
11)b
12)a+b+c
13)f+g+h
===== PascalABC.NET =====
function СуммаЦифрЧетная(n: integer): boolean;
begin
var s := 0;
while n > 0 do
begin
s := s + n mod 10;
n := n div 10;
end;
Result := s.IsEven
end;
begin
var n := ReadInteger('n =');
var a:= ArrRandom(n, 0, 300);
a.Println;
a := a.Where(p -> СуммаЦифрЧетная(p)).ToArray;
a.Println
end.