Таблица истинности И:
0 0 0
1 0 0
0 1 0
1 1 1
Таким образом, нужное нам число должно выполнять все представленные условия.
Рассмотрим 4:
4>1-правда
4>2-правда
4<span>≠3-правда
Таким образом, ответ 4.</span>
Смесь на вектор 1.0
опустить перо
сместиться на вектор 0.2
var n, p: integer;
begin
read(n);
p := 1;
repeat
p := n mod 10 * p;
n := n div 10;
until n = 0;
write(p)
end.
RGB = 256*256*256 цветов = 16`777`216 цветов = 2^(8*3) = 2^24 т.е. 24 бита на пиксель
24*40*40 бит = 38`400 бит = 4`800 байт
var a:array [1..100] of int;
i,j,n,t,winners:integer;
Begin
writeln("Введите кол-во делителей");
read(n);
writeln("Введите k");
read(k);
writeln("Введите делители");
for i := 1 to n do
read(a[i]);
for i:= a to b do begin
t:=0;
for j:= 1 to n do
if i mod a[j] = 0 then t:=t+1;
if t=k then winners:=winners+1;
end;
writeln(winners);
End.