var i : integer;
a : string;
b :array [1..16] of integer;
begin
a :='';
Randomize;
for i:= 1 to 16 do
begin
b[i]:= Random(-20,20);
if b[i] mod 2 = 0 then a:=a+ i + ' ';
end;
Writeln(a);
end.
Дизъюнктор
<span> (соединенные параллельно замыкающие контакты нескольких реле).</span>
K=16=2 в степени 4
V= M*N*a
V= 640*288*4=737280бит=92160 байт=90 кб
ответ 90 кб
Var
n: integer;
begin
readln(n);
writeln('Последняя цифра: ', n mod 10);
while n > 9 do
n := n div 10;
writeln('Первая цифра: ', n);
end.